/[gcl]/gcl/ansi-tests/concatenate.lsp
ViewVC logotype

Diff of /gcl/ansi-tests/concatenate.lsp

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

revision 1.15 by pfdietz, Mon Sep 27 13:54:20 2004 UTC revision 1.16 by pfdietz, Sat Oct 2 12:12:48 2004 UTC
# Line 312  Line 312 
312    t)    t)
313    
314  (deftest concatenate.error.6  (deftest concatenate.error.6
315      :notes (:result-type-element-type-by-subtype)
316    (let ((type '(or (vector bit) (vector t))))    (let ((type '(or (vector bit) (vector t))))
317      (if (subtypep type 'vector)      (if (subtypep type 'vector)
318          (eval `(signals-error-always (concatenate ',type '(0 1 0) '(1 1 0)) error))          (eval `(signals-error-always (concatenate ',type '(0 1 0) '(1 1 0)) error))

Legend:
Removed from v.1.15  
changed lines
  Added in v.1.16

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