Commit 9421a46a authored by ehuelsmann@1c010e3e-69d0-11dd-93a8-456734b0d56f's avatar ehuelsmann@1c010e3e-69d0-11dd-93a8-456734b0d56f
Browse files

Follow-up to r13531: The first resource file is _0, not _1.

parent af34c486
......@@ -595,9 +595,11 @@ interpreted toplevel form, non-NIL if it is 'simple enough'."
;;; XXX it would be better to just use the recorded number
;;; of class constants, but probing for the first at least
;;; makes this subjectively bearable.
(when (probe-file (make-pathname :name (format nil "~A_1" (pathname-name truename))
:type "clc"
:defaults truename))
(when (probe-file
(make-pathname :name (format nil "~A_0"
(pathname-name truename))
:type "clc"
:defaults truename))
(dolist (resource (directory
(make-pathname :name (format nil "~A_*"
(pathname-name truename))
......
Supports Markdown
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