Parent Directory | Revision Log | Patch
revision 1.3 by pfdietz, Tue May 20 11:40:13 2003 UTC | revision 1.4 by pfdietz, Thu Jun 5 11:20:17 2003 UTC | |
---|---|---|
# | Line 128 | Line 128 |
128 | (map-slot-value newobj '(a b c))))) | (map-slot-value newobj '(a b c))))) |
129 | 2 t (t t t) (7 100 64)) | 2 t (t t t) (7 100 64)) |
130 | ||
131 | (defpackage "CL-TEST-MLFSS-PACKAGE" (:use) (:export "A")) | (defpackage "CL-TEST-MLFSS-PACKAGE" (:use) (:export #:a)) |
132 | (defstruct mlfss-03 cl-test-mlfss-package:a) | (defstruct mlfss-03 cl-test-mlfss-package:a) |
133 | ||
134 | (deftest make-load-form-savings-slots.10 | (deftest make-load-form-savings-slots.10 |
|
savannah-hackers-public@gnu.org | ViewVC Help |
Powered by ViewVC 1.1.26 |