Thu Aug 27 13:43:13 CEST 2009 Tobias Rautenkranz <tobias@rautenkranz.ch>

* Support the new smokegenerator (r1015073).

* support const correctness

* remove workarounds for the old smoke

The old smoke is no longer supported.

Thanks to Arno Rehn for making the smokegenerator work with cl-smoke.

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

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

@@ -91,7 +91,8 @@

(defun real-class (class)

"Returns the same class like CLASS, but such that EXTERNAL-P returns NIL."

(if (external-p class)

- (make-smoke-class (smoke class) (name class))

+ (handler-case (make-smoke-class (smoke class) (name class))

+ (undefined-class () class))

class))

(defun class-id (module class)