Sat Jan 30 15:40:08 CET 2010 Tobias Rautenkranz <tobias@rautenkranz.ch>

* Do not warn on missing parent class.

--- old-smoke/src/clos.lisp 2014-10-09 01:08:15.000000000 +0200

+++ new-smoke/src/clos.lisp 2014-10-09 01:08:15.000000000 +0200

@@ -198,10 +198,8 @@

(dolist (class classes class-symbols)

(if (external-p class)

(let ((real-class (find-smoke-class class nil)))

- (if real-class

- (push (class-name real-class) class-symbols)

- (warn "The class ~A could not be found in any module."

- (name class))))

+ (when real-class

+ (push (class-name real-class) class-symbols)))

(push (lispify (name class)) class-symbols)))))

(defun make-smoke-classes (package smoke)