From d202b8b8dc476cd50ddc007aac8129b0a84e4480 Mon Sep 17 00:00:00 2001 From: dtc <dtc> Date: Fri, 1 May 1998 01:02:56 +0000 Subject: [PATCH] Remove the remnants of the 'common type specifier. --- code/exports.lisp | 4 ++-- code/loop.lisp | 4 ++-- code/misc.lisp | 4 ++-- code/pred.lisp | 4 ++-- code/typedefs.lisp | 4 ++-- 5 files changed, 10 insertions(+), 10 deletions(-) diff --git a/code/exports.lisp b/code/exports.lisp index f807ae898..de5b4e14d 100644 --- a/code/exports.lisp +++ b/code/exports.lisp @@ -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" diff --git a/code/loop.lisp b/code/loop.lisp index 0aedd20ce..a25475047 100644 --- a/code/loop.lisp +++ b/code/loop.lisp @@ -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 diff --git a/code/misc.lisp b/code/misc.lisp index 0d4ab21cf..32b61a8b6 100644 --- a/code/misc.lisp +++ b/code/misc.lisp @@ -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)) diff --git a/code/pred.lisp b/code/pred.lisp index ea45dfd55..5b5c42c95 100644 --- a/code/pred.lisp +++ b/code/pred.lisp @@ -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 diff --git a/code/typedefs.lisp b/code/typedefs.lisp index 4f825f73c..39872dcdb 100644 --- a/code/typedefs.lisp +++ b/code/typedefs.lisp @@ -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 -- GitLab