Changeset 4278

Timestamp:

10/10/03 02:58:43 (18 years ago)

Author:

piso

Message:

(in-package "SYSTEM")
NORMALIZE-TYPE => MAKE-SEQUENCE-NORMALIZE-TYPE

File:

• trunk/j/src/org/armedbear/lisp/make-sequence.lisp (modified) (5 diffs)

trunk/j/src/org/armedbear/lisp/make-sequence.lisp

@@ -2 +2 @@
 ;;;
 ;;; Copyright (C) 2003 Peter Graves
-;;; $Id: make-sequence.lisp,v 1.3 2003-06-20 01:25:30 piso Exp $
+;;; $Id: make-sequence.lisp,v 1.4 2003-10-10 02:58:43 piso Exp $
 ;;;
 ;;; 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.
 
-(in-package "COMMON-LISP")
-
-(export 'make-sequence)
+(in-package "SYSTEM")
 
 ;;; MAKE-SEQUENCE (from ECL)
@@ -27 +25 @@
 ;;;  VALUE-1 = normalized type name or object
 ;;;  VALUE-2 = normalized type arguments or nil
-(defun normalize-type (type)
+(defun make-sequence-normalize-type (type)
   (let (tp i fd)
     (cond ((symbolp type)
@@ -37 +35 @@
                (values tp i)))
           (t
-           (error "normalize-type: bogus type specifier ~A" type)))))
+           (error "MAKE-SEQUENCE-NORMALIZE-TYPE: bogus type specifier ~A" type)))))
 
 
@@ -70 +68 @@
                            (t
                             (error 'type-error "~S is not a sequence type" type))))))
-        (multiple-value-bind (name args) (normalize-type type)
+        (multiple-value-bind (name args) (make-sequence-normalize-type type)
           (when (memq name '(LIST CONS))
             (return-from make-sequence