X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=tests%2Fclos.impure-cload.lisp;fp=tests%2Fclos.impure-cload.lisp;h=40b53e15412856720e5f577a48061a002df9290b;hb=0704fd3f3f027ec1be05ddb986b6ca538aa165ca;hp=0000000000000000000000000000000000000000;hpb=722703e7cbd3a4b279a4c1baab5d95df2c23cce9;p=sbcl.git

diff --git a/tests/clos.impure-cload.lisp b/tests/clos.impure-cload.lisp
new file mode 100644
index 0000000..40b53e1
--- /dev/null
+++ b/tests/clos.impure-cload.lisp
@@ -0,0 +1,32 @@
+;;;; miscellaneous side-effectful tests of CLOS and file-compiler
+;;;; optimizations
+
+;;;; This software is part of the SBCL system. See the README file for
+;;;; more information.
+;;;;
+;;;; 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.
+
+;;; Fix due to pmai, ported from CMUCL, regarding
+;;; MAKE-INSTANCES-OBSOLETE:
+(defclass mio-test ()
+  ((test :initarg :test)))
+
+(defun mio-demo ()
+  (let ((x (make-instance 'mio-test :test 42)))
+    (incf (slot-value x 'test))))
+
+(defun mio-test ()
+  (mio-demo)
+  (make-instances-obsolete 'mio-test)
+  (mio-demo))
+
+(mio-test)
+
+;;; success
+(sb-ext:quit :unix-status 104)
\ No newline at end of file