/[gcl]/gcl/ansi-tests/with-slots.lsp
ViewVC logotype

Diff of /gcl/ansi-tests/with-slots.lsp

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.1 by pfdietz, Sat May 17 23:29:00 2003 UTC revision 1.2 by pfdietz, Sun May 18 01:10:33 2003 UTC
# Line 152  Line 152 
152      (with-slots (a b c) obj (values a b c)))      (with-slots (a b c) obj (values a b c)))
153    missing missing missing)    missing missing missing)
154    
155    (deftest with-slots.19
156      (let ((obj (make-instance 'with-slots-class-01 :a 'x :b 'y :c 'z)))
157        (with-slots (a b c) obj
158                    (declare (optimize (speed 3) (safety 3)))
159                    (values a b c)))
160      x y z)
161    
162    (deftest with-slots.20
163      (let ((obj (make-instance 'with-slots-class-01 :a 'x :b 'y :c 'z)))
164        (with-slots (a b c) obj
165                    (declare (optimize (speed 3) (safety 3)))
166                    (declare (special *x*))
167                    (values a b c)))
168      x y z)

Legend:
Removed from v.1.1  
changed lines
  Added in v.1.2

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26