Commit 7ff3db8d authored by Alan Ruttenberg's avatar Alan Ruttenberg

lookup-classname would return allcaps class name if not found, which would...

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.
parent b09df07a
......@@ -263,7 +263,7 @@ want to avoid the overhead of the dynamic dispatch."
(ambiguous (choices)
(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)
(car matches)
......@@ -272,7 +272,7 @@ want to avoid the overhead of the dynamic dispatch."
(if (= (length matches) 1)
(car matches)
(if (= (length matches) 0)
name
(progn (warn "can't find class named ~a" name) nil)
(ambiguous matches))))
(ambiguous matches))))))))))
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment