(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))))
(frob-slot (slot)
- (let ((type (slot-value slot 'type)))
+ (let ((type (slot-value slot *impl-type-attrib-name*)))
(if (eq type t)
(setq type nil))
(list (slot-value slot 'name)
(car list)
list))
-(declaim (inline delistify))
+(declaim (inline delistify-dsd))
(defun delistify-dsd (list)
"Some MOPs, like openmcl 0.14.2, cons attribute values in a list."
(if (and (listp list) (null (cdr list)))
(null (specified-type dsd)))
(setf (specified-type dsd)
(slot-definition-type dsd))
- (setf (slot-value dsd 'type)
+ (setf (slot-value dsd *impl-type-attrib-name*)
(compute-lisp-type-from-slot-specification
dsd (slot-definition-type dsd))))