Changeset 14906

Timestamp:

10/24/16 10:07:03 (7 years ago)

Author:

Mark Evenson

Message:

jss: lookup-classname would return allcaps class name if not found (Alan Ruttenberg)

lookup-classname would return allcaps class name if not found, which
would mess things up if the class was later loaded. Instead warn and
return nil.

File:

• trunk/abcl/contrib/jss/invoke.lisp (modified) (2 diffs)

trunk/abcl/contrib/jss/invoke.lisp

@@ -264 +264 @@
                    (error "Ambiguous class name: ~a can be ~{~a~^, ~}" name choices)))
             (if (zerop bucket-length)
-                name
+    (progn (warn "can't find class named ~a" name) nil)
                 (let ((matches (loop for el in bucket when (matches-end name el 'char=) collect el)))
                   (if (= (length matches) 1)
@@ -273 +273 @@
                                 (car matches)
                                 (if (= (length matches) 0)
-                                    name
+            (progn (warn "can't find class named ~a" name) nil)
                                     (ambiguous matches))))
                           (ambiguous matches))))))))))