;;;; This file was extracted from the KMRCL utilities
;;;; *************************************************************************
-(in-package #:clsql-sys)
+(in-package #:clsql)
#+lispworks
(defun intern-eql-specializer (slot)
)
(defun ordered-class-slots (class)
- #+(or cmu sbcl) (class-slots class)
- #-(or cmu sbcl) (reverse (class-slots class)))
+ #+(or cmu18 sbcl) (class-slots class)
+ #-(or cmu18 sbcl) (reverse (class-slots class)))
+
+;; Lispworks has symbol for slot rather than the slot instance
+(defun %svuc-slot-name (slot)
+ #+lispworks slot
+ #-lispworks (slot-definition-name slot))
+
+(defun %svuc-slot-object (slot class)
+ (declare (ignorable class))
+ #+lispworks (clos:find-slot-definition slot class)
+ #-lispworks slot)
+