Changeset 4278
- Timestamp:
- 10/10/03 02:58:43 (19 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/j/src/org/armedbear/lisp/make-sequence.lisp
r2441 r4278 2 2 ;;; 3 3 ;;; Copyright (C) 2003 Peter Graves 4 ;;; $Id: make-sequence.lisp,v 1. 3 2003-06-20 01:25:30piso Exp $4 ;;; $Id: make-sequence.lisp,v 1.4 2003-10-10 02:58:43 piso Exp $ 5 5 ;;; 6 6 ;;; This program is free software; you can redistribute it and/or … … 18 18 ;;; Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. 19 19 20 (in-package "COMMON-LISP") 21 22 (export 'make-sequence) 20 (in-package "SYSTEM") 23 21 24 22 ;;; MAKE-SEQUENCE (from ECL) … … 27 25 ;;; VALUE-1 = normalized type name or object 28 26 ;;; VALUE-2 = normalized type arguments or nil 29 (defun normalize-type (type)27 (defun make-sequence-normalize-type (type) 30 28 (let (tp i fd) 31 29 (cond ((symbolp type) … … 37 35 (values tp i))) 38 36 (t 39 (error " normalize-type: bogus type specifier ~A" type)))))37 (error "MAKE-SEQUENCE-NORMALIZE-TYPE: bogus type specifier ~A" type))))) 40 38 41 39 … … 70 68 (t 71 69 (error 'type-error "~S is not a sequence type" type)))))) 72 (multiple-value-bind (name args) ( normalize-type type)70 (multiple-value-bind (name args) (make-sequence-normalize-type type) 73 71 (when (memq name '(LIST CONS)) 74 72 (return-from make-sequence
Note: See TracChangeset
for help on using the changeset viewer.