Re: clsql-sys::|view-class-slot-autoincrement-sequence|

I see now that my slime init was setting *print-case* to :downcase.  Which presumably clsql found to be inappropriate. (fyi that code is in compute-effective-slot-definition ).

On Mar 27, 2013, at 9:04 PM, Ben Hyde <[email protected]> wrote:
> Loading clsql into ccl doesn't work out well:
> 
> cl-user> (handler-case (ql:quickload "clsql") (error (e) (princ e)))
> To load "clsql":
>   Load 1 ASDF system:
>     clsql
> ; Loading "clsql"
> Undefined function clsql-sys::|view-class-slot-autoincrement-sequence| called with arguments (#<view-class-direct-slot-definition for instance slot clsql-sys::view-database #x302001C1DC1D>) .
> ...
> 
> No doubt more knowledgable eyes will scoff, but this fix allowed me to move onto the next puzzle:
> 
> diff --git a/sql/metaclasses.lisp b/sql/metaclasses.lisp
> index 1c9a6c5..830cf2c 100644
> --- a/sql/metaclasses.lisp
> +++ b/sql/metaclasses.lisp
> @@ -482,7 +482,7 @@ implementations."
>  
>           (macrolet
>               ((safe-copy-value (name &optional default)
> -                (let ((fn (intern (format nil "~A~A" 'view-class-slot- name ))))
> +                (let ((fn (intern (format nil "~@:(~A~A~)" 'view-class-slot- name ))))
>                    `(setf (slot-value esd ',name)
>                      (or (when (slot-boundp dsd ',name)
>                            (delistify-dsd (,fn dsd)))
>

_______________________________________________
CLSQL mailing list
[email protected]
http://lists.b9.com/cgi-bin/mailman/listinfo/clsql