mirrors/ecl
1
Fork 0
mirror of https://gitlab.com/embeddable-common-lisp/ecl.git synced 2026-01-14 05:12:38 -08:00
Code Issues Projects Releases Packages Wiki Activity

Simplify CREATE-TYPE-NAME, because removing the previous class seems to cause some unexpected side-effects

Browse source
This commit is contained in:
jjgarcia 2005-06-09 10:18:18 +00:00
parent 85815eb157
commit 90e836add4
1 changed files with 1 additions and 8 deletions
Download patch file Download diff file Expand all files Collapse all files

9
src/lsp/predlib.lsp
View file

@ -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)