From 9602bca340da71b88ca48297a7a934df46a7d420 Mon Sep 17 00:00:00 2001
From: ram <ram>
Date: Wed, 10 Feb 1993 23:41:49 +0000
Subject: [PATCH] *unparse-function-type-simplify* is NIL by default.  Add
 support for non-base strings in array unparsing.  Delete base-char deftype
 now that it is a class

---
 code/type.lisp | 12 ++++++------
 1 file changed, 6 insertions(+), 6 deletions(-)

diff --git a/code/type.lisp b/code/type.lisp
index f817ba9af..dc1ea02e4 100644
--- a/code/type.lisp
+++ b/code/type.lisp
@@ -7,7 +7,7 @@
 ;;; Scott Fahlman or slisp-group@cs.cmu.edu.
 ;;;
 (ext:file-comment
-  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/type.lisp,v 1.2 1993/02/08 22:22:18 ram Exp $")
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/type.lisp,v 1.3 1993/02/10 23:41:49 ram Exp $")
 ;;;
 ;;; **********************************************************************
 ;;;
@@ -185,7 +185,7 @@
 ;;; FUNCTION.  Useful when we want a type that we can pass to TYPEP.
 ;;;
 (defvar *unparse-function-type-simplify*)
-(cold-load-init (setq *unparse-function-type-simplify* t))
+(cold-load-init (setq *unparse-function-type-simplify* nil))
 
 
 (define-type-method (function :unparse) (type)
@@ -1532,21 +1532,25 @@
 		   (case eltype
 		     (bit 'bit-vector)
 		     (base-char 'base-string)
+		     (character 'string)
 		     (* 'vector)
 		     (t `(vector ,eltype)))
 		   (case eltype
 		     (bit `(bit-vector ,(car dims)))
 		     (base-char `(base-string ,(car dims)))
+		     (character `(string ,(car dims)))
 		     (t `(vector ,eltype ,(car dims)))))
 	       (if (eq (car dims) '*)
 		   (case eltype
 		     (bit 'simple-bit-vector)
 		     (base-char 'simple-base-string)
+		     (character 'simple-string)
 		     ((t) 'simple-vector)
 		     (t `(simple-array ,eltype (*))))
 		   (case eltype
 		     (bit `(simple-bit-vector ,(car dims)))
 		     (base-char `(simple-base-string ,(car dims)))
+		     (character `(simple-string ,(car dims)))
 		     ((t) `(simple-vector ,(car dims)))
 		     (t `(simple-array ,eltype ,dims))))))
 	  (t
@@ -2228,10 +2232,6 @@
   "Type of characters that aren't base-char's.  None in CMU CL."
   'nil)
 
-(deftype base-char ()
-  "An 8-bit ASCII character.  Really the same as CHARACTER."
-  'character)
-
 (deftype standard-char ()
   "Type corresponding to the charaters required by the standard."
   '(member #\NEWLINE #\SPACE #\! #\" #\# #\$ #\% #\& #\' #\( #\) #\* #\+ #\,
-- 
GitLab