/[gcl]/gcl/ansi-tests/make-load-form.lsp
ViewVC logotype

Diff of /gcl/ansi-tests/make-load-form.lsp

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

revision 1.4 by pfdietz, Sat May 17 21:38:18 2003 UTC revision 1.5 by pfdietz, Sun May 18 14:02:42 2003 UTC
# Line 25  Line 25 
25     (error () :good))     (error () :good))
26    :good)    :good)
27    
28  (define-condition make-load-form-condition-03 () (a b c))  (define-condition make-load-form-condition-03 () ((a) (b) (c)))
29    
30  (deftest make-load-form.3  (deftest make-load-form.3
31    (handler-case    (handler-case
# Line 154  Line 154 
154    (nil t t)    (nil t t)
155    ((a b c) a))    ((a b c) a))
156    
157    #|
158    (defclass make-load-form-class-05a ()
159      ((a :initarg :a)))
160    
161    (defclass make-load-form-class-05b (make-load-form-class-05a)
162      ((b :initarg :b)))
163    
164    (defmethod make-load-form ((obj make-load-form-class-05a)
165                               &optional (env t))
166      (declare (ignore env))
167      (let ((newobj (gensym)))
168        `(let ((,newobj (allocate-instance (find-class 'make-load-form-class-04))))
169           ,@(when (slot-boundp obj 'a)
170               `((setf (slot-value ,newobj 'a) ',(slot-value obj 'a))))
171           ,newobj)))
172    
173    (defmethod make-load-form :around ((obj make-load-form-class-05b)
174                                       &optional (env t))
175      (declare (ignore env))
176      (let ((newobj (gensym)))
177        `(let ((,newobj (allocate-instance (find-class 'make-load-form-class-04))))
178           ,@(when (slot-boundp obj 'a)
179               `((setf (slot-value ,newobj 'a) ',(slot-value obj 'a))))
180           ,newobj)))
181    |#
182    
183    
184    
185  ;;; Other error tests  ;;; Other error tests
186    
187  (deftest make-load-form.error.1  (deftest make-load-form.error.1

Legend:
Removed from v.1.4  
changed lines
  Added in v.1.5

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