01 Oct 2004 Kevin Rosenberg <kevin@rosenberg.net>
+ * Version 3.0.7 released
* sql/oodml.lisp, sql/package.lisp, db-mysql/mysql-objects.lisp:
Add support for mediumint.
+ * sql/metaclass.lisp: Rework CLISP MOP handling
+ * sql/ooddl.lisp: Work-around to have CLISP finalize standard-db-class
28 Sep 2004 Kevin Rosenberg <kevin@rosenberg.net>
* sql/metaclass.lisp: Support CLISP's attribute name
+cl-sql (3.0.7-1) unstable; urgency=low
+
+ * New upstream
+
+ -- Kevin M. Rosenberg <kmr@debian.org> Fri, 1 Oct 2004 08:38:52 -0600
+
cl-sql (3.0.6-1) unstable; urgency=low
* New upstream
(nth (1+ pos) list)))))
(mapcar #'extract keys)))
-(defvar *impl-type-attrib-name* #-clisp 'type #+clisp 'clos::$type)
-
(defun describe-db-layout (class)
(flet ((not-db-col (col)
- (not (member (nth 2 col) '(nil :base :key))))
+ (not (member (nth 2 col) '(nil :base :key))))
(frob-slot (slot)
- (let ((type (slot-value slot *impl-type-attrib-name*)))
+ (let ((type (slot-definition-type slot)))
(if (eq type t)
(setq type nil))
(list (slot-value slot 'name)
(car list)
list))
+(defvar *impl-type-attrib-name* #-clisp 'type #+clisp 'clos::$type)
+
(defmethod compute-effective-slot-definition ((class standard-db-class)
#+kmr-normal-cesd slot-name
direct-slots)
(null (specified-type dsd)))
(setf (specified-type dsd)
(slot-definition-type dsd))
- (setf (slot-value dsd *impl-type-attrib-name*)
- (compute-lisp-type-from-slot-specification
- dsd (slot-definition-type dsd))))
+ (setf #-clisp (slot-value dsd 'type)
+ #+clisp (slot-definition-type dsd)
+ (compute-lisp-type-from-slot-specification
+ dsd (slot-definition-type dsd))))
(let ((esd (call-next-method)))
(typecase dsd
:db-kind :virtual))
(:metaclass standard-db-class)
(:documentation "Superclass for all CLSQL View Classes."))
+#+clisp
+(eval-when (:compile-toplevel :load-toplevel :execute)
+ (make-instance 'standard-db-object)
+ (finalize-inheritance (find-class 'standard-db-object)))
(defparameter *default-string-length* 255
"The length of a string which does not have a user-specified length.")