0.7.7.38:
[sbcl.git] / tests / clos.impure-cload.lisp
1 ;;;; miscellaneous side-effectful tests of CLOS and file-compiler
2 ;;;; optimizations
3
4 ;;;; This software is part of the SBCL system. See the README file for
5 ;;;; more information.
6 ;;;;
7 ;;;; While most of SBCL is derived from the CMU CL system, the test
8 ;;;; files (like this one) were written from scratch after the fork
9 ;;;; from CMU CL.
10 ;;;; 
11 ;;;; This software is in the public domain and is provided with
12 ;;;; absolutely no warranty. See the COPYING and CREDITS files for
13 ;;;; more information.
14
15 ;;; Fix due to pmai, ported from CMUCL, regarding
16 ;;; MAKE-INSTANCES-OBSOLETE:
17 (defclass mio-test ()
18   ((test :initarg :test)))
19
20 (defun mio-demo ()
21   (let ((x (make-instance 'mio-test :test 42)))
22     (incf (slot-value x 'test))))
23
24 (defun mio-test ()
25   (mio-demo)
26   (make-instances-obsolete 'mio-test)
27   (mio-demo))
28
29 (mio-test)
30 \f
31 ;;; success
32 (sb-ext:quit :unix-status 104)