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

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