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

Diff of /gcl/lsp/seq.lsp

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

revision 1.3 by camm, Tue Sep 24 14:47:01 2002 UTC revision 1.4 by camm, Wed Sep 25 15:03:17 2002 UTC
# Line 46  Line 46 
46                (t                (t
47                 (setq type (normalize-type type))                 (setq type (normalize-type type))
48                 (when (subtypep (car type) 'list)                 (when (subtypep (car type) 'list)
49                     (if (and (eq 'null (car type)) (not (equal size 0)))
50                         (error "Cannot make 'null sequence of size ~S." size))
51                       (return-from make-sequence                       (return-from make-sequence
52                        (if iesp                        (if iesp
53                            (make-list size :initial-element initial-element)                            (make-list size :initial-element initial-element)

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