Fix make-array transforms.

[sbcl.git] / tests / mop.impure-cload.lisp

diff --git a/tests/mop.impure-cload.lisp b/tests/mop.impure-cload.lisp
index 07932e0..5299d4f 100644 (file)
--- 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))
-\f
-;;; success
-(sb-ext:quit :unix-status 104)
\ No newline at end of file