;;;; While most of SBCL is derived from the CMU CL system, the test
;;;; files (like this one) were written from scratch after the fork
;;;; from CMU CL.
-;;;;
+;;;;
;;;; This software is in the public domain and is provided with
;;;; absolutely no warranty. See the COPYING and CREDITS files for
;;;; more information.
;;; A distilled test case from cmucl-imp for Kevin Rosenberg's
;;; hyperobject. Fix from Gerd Moellmann.
(defclass hyperobject-class (standard-class)
- ((user-name :initarg :user-name :type string :initform nil
- :accessor user-name
- :documentation "User name for class")))
+ ((user-name :initarg :user-name :type (or null string) :initform nil
+ :accessor user-name
+ :documentation "User name for class")))
(defclass hyperobject-dsd (standard-direct-slot-definition)
())
((vc :initform 42)))
(defmethod validate-superclass ((class hyperobject-class)
- (superclass standard-class))
+ (superclass standard-class))
t)
(defmethod compute-effective-slot-definition :around
(eval '(make-instance 'person :name t))
-\f
-;;; success
-(sb-ext:quit :unix-status 104)
\ No newline at end of file