/[gcl]/gcl/lsp/gcl_seq.lsp
ViewVC logotype

Diff of /gcl/lsp/gcl_seq.lsp

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

revision 1.3 by camm, Sat Jul 23 08:52:43 2005 UTC revision 1.4 by camm, Tue Aug 9 00:46:01 2005 UTC
# Line 46  Line 46 
46                ((or (eq type 'simple-vector) (eq type 'vector)) t)                ((or (eq type 'simple-vector) (eq type 'vector)) t)
47                (t                (t
48                 (setq type (normalize-type type))                 (setq type (normalize-type type))
49                 (when (member (car type) '(cons nil));(subtypep (car type) 'list)                 (when (member (car type) '(cons null));(subtypep (car type) 'list)
50                   (if (or (and (eq 'null (car type)) (not (equal size 0)))                   (if (or (and (eq 'null (car type)) (not (equal size 0)))
51                           (and (eq 'cons (car type)) (equal size 0)))                           (and (eq 'cons (car type)) (equal size 0)))
52                       (specific-error :wrong-type-argument "~S is not of type ~S."                       (specific-error :wrong-type-argument "~S is not of type ~S."

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