X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=tests%2Fmop.impure-cload.lisp;h=5299d4f7f7b196c540a33ee09eef6712b9eee4d4;hb=HEAD;hp=07932e05e5dc37b37bf25135e864cb725a76079f;hpb=4898ef32c639b1c7f4ee13a5ba566ce6debd03e6;p=sbcl.git

diff --git a/tests/mop.impure-cload.lisp b/tests/mop.impure-cload.lisp
index 07932e0..5299d4f 100644
--- a/tests/mop.impure-cload.lisp
+++ b/tests/mop.impure-cload.lisp
@@ -23,7 +23,7 @@
 ;;; 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
+  ((user-name :initarg :user-name :type (or null string) :initform nil
               :accessor user-name
               :documentation "User name for class")))
 
@@ -57,6 +57,3 @@
 
 
 (eval '(make-instance 'person :name t))
-
-;;; success
-(sb-ext:quit :unix-status 104)
\ No newline at end of file