Wed Sep 9 15:22:32 CEST 2009 Tobias Rautenkranz <tobias@rautenkranz.ch>

* Smoke::t_class is now also used for classes not wrapped by Smoke & remove global-space part from enum symbols.

--- old-smoke/src/objects/type.lisp 2014-10-30 08:10:26.000000000 +0100

+++ new-smoke/src/objects/type.lisp 2014-10-30 08:10:26.000000000 +0100

@@ -104,7 +104,7 @@

(defun class-p (type)

"Returns T when TYPE is a smoke class"

(and (eql (type-id type) 13)

- (/= -1 (type-slot-value type 'class))))

+ (not (zerop (type-slot-value type 'class)))))

(defun type-id (type)

"Returns the ID of TYPE."