/[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.2 by camm, Sun Sep 14 02:43:06 2003 UTC revision 1.3 by camm, Sat Jul 23 08:52:43 2005 UTC
# Line 1  Line 1 
1    ;; -*-Lisp-*-
2  ;; Copyright (C) 1994 M. Hagiya, W. Schelter, T. Yuasa  ;; Copyright (C) 1994 M. Hagiya, W. Schelter, T. Yuasa
3    
4  ;; This file is part of GNU Common Lisp, herein referred to as GCL  ;; This file is part of GNU Common Lisp, herein referred to as GCL
# Line 45  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 (subtypep (car type) 'list)                 (when (member (car type) '(cons nil));(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.2  
changed lines
  Added in v.1.3

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