Sat Jan 30 15:40:08 CET 2010  Tobias Rautenkranz <tobias@rautenkranz.ch>
  * Do not warn on missing parent class.
diff -rN -u old-smoke/src/clos.lisp new-smoke/src/clos.lisp
--- old-smoke/src/clos.lisp	2014-10-30 08:08:01.000000000 +0100
+++ new-smoke/src/clos.lisp	2014-10-30 08:08:01.000000000 +0100
@@ -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)