From 90e836add4c81e455e7974df35ad65456d687bb1 Mon Sep 17 00:00:00 2001 From: jjgarcia Date: Thu, 9 Jun 2005 10:18:18 +0000 Subject: [PATCH] Simplify CREATE-TYPE-NAME, because removing the previous class seems to cause some unexpected side-effects --- src/lsp/predlib.lsp | 9 +-------- 1 file changed, 1 insertion(+), 8 deletions(-) diff --git a/src/lsp/predlib.lsp b/src/lsp/predlib.lsp index f3484e98e..dcf47a5cc 100644 --- a/src/lsp/predlib.lsp +++ b/src/lsp/predlib.lsp @@ -14,14 +14,7 @@ (defun create-type-name (name) (when (member name *alien-declarations*) - (error "Symbol ~s is a declaration specifier and cannot be used to name a new type" name)) - (dolist (x '(DEFTYPE-FORM DEFTYPE-DEFINITION - DEFSTRUCT-FORM IS-A-STRUCTURE - STRUCTURE-SLOT-DESCRIPTIONS STRUCTURE-INCLUDE - STRUCTURE-PRINT-FUNCTION STRUCTURE-TYPE - STRUCTURE-NAMED STRUCTURE-OFFSET STRUCTURE-CONSTRUCTORS)) - (rem-sysprop name x)) - (remhash name si:*class-name-hash-table*)) + (error "Symbol ~s is a declaration specifier and cannot be used to name a new type" name))) (defun do-deftype (name form function) (unless (symbolp name)