X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=tests%2Fmop.impure-cload.lisp;h=5299d4f7f7b196c540a33ee09eef6712b9eee4d4;hb=4f8f4b25cb564509437d8fc26038143150077f14;hp=56a0ddbbf374e87d9dc0eac8947dea479e57d184;hpb=a110dc1207382adf09d84a49be2381de0c688ec8;p=sbcl.git

diff --git a/tests/mop.impure-cload.lisp b/tests/mop.impure-cload.lisp
index 56a0ddb..5299d4f 100644
--- a/tests/mop.impure-cload.lisp
+++ b/tests/mop.impure-cload.lisp
@@ -6,7 +6,7 @@
 ;;;; 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.
@@ -23,9 +23,9 @@
 ;;; 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)
   ())
@@ -34,7 +34,7 @@
   ((vc :initform 42)))
 
 (defmethod validate-superclass ((class hyperobject-class)
-				(superclass standard-class))
+                                (superclass standard-class))
   t)
 
 (defmethod compute-effective-slot-definition :around
@@ -57,6 +57,3 @@
 
 
 (eval '(make-instance 'person :name t))
-
-;;; success
-(sb-ext:quit :unix-status 104)
\ No newline at end of file