;;;; 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)