diff --git a/code/exports.lisp b/code/exports.lisp index f807ae8988916cece7eae41236925bb7aeed6545..de5b4e14d6cdd91270300619d16402da32b0b9e3 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 0aedd20ce911f709f7ce4729e856fcbf6da9debf..a254750476ecf91d492e8ec8ea1f06ec308344fb 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 0d4ab21cf44040040229634a84f2fe38c44a446b..32b61a8b68263c4126a9f060b9b94ea2027cbd02 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 ea45dfd55074cca17670c59431dd001475006bb0..5b5c42c95a25814b8fe84c22a04264fa452855da 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 4f825f73c2c4e0a125faa15660a66eb850abc5d3..39872dcdb79bc235af82e64cebb6a6397d04c157 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