/[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.3 by pfdietz, Sat May 17 18:20:10 2003 UTC revision 1.4 by pfdietz, Sat May 17 21:38:18 2003 UTC
# Line 154  Line 154 
154    (nil t t)    (nil t t)
155    ((a b c) a))    ((a b c) a))
156    
157  ;;; Additional tests will be in the files testing file compilation  ;;; Other error tests
158    
159    (deftest make-load-form.error.1
160      (classify-error (make-load-form))
161      program-error)
162    
163    (deftest make-load-form.error.2
164      (classify-error
165       (let ((obj (make-instance 'make-load-form-class-04 :b '(a b c) :c 'a)))
166         (make-load-form obj nil nil)))
167      program-error)
168    
169    

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

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