Changeset 4278


Ignore:
Timestamp:
10/10/03 02:58:43 (18 years ago)
Author:
piso
Message:

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

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/j/src/org/armedbear/lisp/make-sequence.lisp

    r2441 r4278  
    22;;;
    33;;; Copyright (C) 2003 Peter Graves
    4 ;;; $Id: make-sequence.lisp,v 1.3 2003-06-20 01:25:30 piso Exp $
     4;;; $Id: make-sequence.lisp,v 1.4 2003-10-10 02:58:43 piso Exp $
    55;;;
    66;;; This program is free software; you can redistribute it and/or
     
    1818;;; Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA  02111-1307, USA.
    1919
    20 (in-package "COMMON-LISP")
    21 
    22 (export 'make-sequence)
     20(in-package "SYSTEM")
    2321
    2422;;; MAKE-SEQUENCE (from ECL)
     
    2725;;;  VALUE-1 = normalized type name or object
    2826;;;  VALUE-2 = normalized type arguments or nil
    29 (defun normalize-type (type)
     27(defun make-sequence-normalize-type (type)
    3028  (let (tp i fd)
    3129    (cond ((symbolp type)
     
    3735               (values tp i)))
    3836          (t
    39            (error "normalize-type: bogus type specifier ~A" type)))))
     37           (error "MAKE-SEQUENCE-NORMALIZE-TYPE: bogus type specifier ~A" type)))))
    4038
    4139
     
    7068                           (t
    7169                            (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)
    7371          (when (memq name '(LIST CONS))
    7472            (return-from make-sequence
Note: See TracChangeset for help on using the changeset viewer.