Skip to content
Snippets Groups Projects
Commit d202b8b8 authored by dtc's avatar dtc
Browse files

Remove the remnants of the 'common type specifier.

parent ac88faea
No related branches found
No related tags found
No related merge requests found
......@@ -5,7 +5,7 @@
;;; Carnegie Mellon University, and has been placed in the public domain.
;;;
(ext:file-comment
"$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/exports.lisp,v 1.151 1998/04/10 11:42:40 pw Exp $")
"$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/exports.lisp,v 1.152 1998/05/01 01:02:54 dtc Exp $")
;;;
;;; **********************************************************************
;;;
......@@ -573,7 +573,7 @@
"WITH-ADDED-METHODS" "WITH-SLOTS"
"MAKE-METHOD" "UNBOUND-SLOT" "UNBOUND-SLOT-INSTANCE"
"CELL-ERROR-NAME"
"COMMON" "HASH-TABLE-WEAK-P"
"HASH-TABLE-WEAK-P"
"GET-SETF-EXPANSION" "STYLE-WARNING"
"PRINT-NOT-READABLE-OBJECT"
"DEFINE-SETF-EXPANDER" "PRINT-NOT-READABLE" "METHOD"
......
......@@ -49,7 +49,7 @@
#+cmu
(ext:file-comment
"$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/loop.lisp,v 1.6 1998/02/03 19:15:56 dtc Exp $")
"$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/loop.lisp,v 1.7 1998/05/01 01:02:55 dtc Exp $")
;;;; LOOP Iteration Macro
......@@ -2089,7 +2089,7 @@ collected result will be returned as the value of the LOOP."
:iteration-keywords '((for (loop-do-for))
(as (loop-do-for))
(repeat (loop-do-repeat)))
:type-symbols '(array atom bignum bit bit-vector character #| common |# compiled-function
:type-symbols '(array atom bignum bit bit-vector character compiled-function
complex cons double-float fixnum float
function hash-table integer keyword list long-float
nil null number package pathname random-state
......
......@@ -5,7 +5,7 @@
;;; Carnegie Mellon University, and has been placed in the public domain.
;;;
(ext:file-comment
"$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/misc.lisp,v 1.27 1997/09/04 06:17:15 dtc Exp $")
"$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/misc.lisp,v 1.28 1998/05/01 01:02:55 dtc Exp $")
;;;
;;; **********************************************************************
;;;
......@@ -15,7 +15,7 @@
;;; Scott Fahlman, Dan Aronson, and Steve Handerson did stuff here, too.
;;;
(in-package "LISP")
(export '(documentation *features* common variable room
(export '(documentation *features* variable room
lisp-implementation-type lisp-implementation-version machine-type
machine-version machine-instance software-type software-version
short-site-name long-site-name dribble compiler-macro))
......
......@@ -5,7 +5,7 @@
;;; Carnegie Mellon University, and has been placed in the public domain.
;;;
(ext:file-comment
"$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/pred.lisp,v 1.47 1998/04/06 02:44:33 dtc Exp $")
"$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/pred.lisp,v 1.48 1998/05/01 01:02:56 dtc Exp $")
;;;
;;; **********************************************************************
;;;
......@@ -29,7 +29,7 @@
functionp compiled-function-p eq eql equal equalp not
type-of upgraded-array-element-type realp
;; Names of types...
array atom bignum bit bit-vector character common
array atom bignum bit bit-vector character
compiled-function complex cons double-float
fixnum float function integer keyword list long-float nil
null number ratio rational real sequence short-float signed-byte
......
......@@ -5,7 +5,7 @@
;;; Carnegie Mellon University, and has been placed in the public domain.
;;;
(ext:file-comment
"$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/typedefs.lisp,v 1.10 1994/10/31 04:11:27 ram Exp $")
"$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/typedefs.lisp,v 1.11 1998/05/01 01:02:56 dtc Exp $")
;;;
;;; **********************************************************************
;;;
......@@ -22,7 +22,7 @@
;;; These are the Common Lisp defined type specifier symbols. These are the
;;; things which can be used as declarations without requiring the use of TYPE.
(defconstant type-specifier-symbols
'(array atom bignum bit bit-vector character common compiled-function
'(array atom bignum bit bit-vector character compiled-function
complex cons double-float extended-char fixnum float function
hash-table integer keyword list long-float nil null number package
pathname random-state ratio rational real readtable sequence
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment