Skip to content
GitLab
Menu
Projects
Groups
Snippets
Loading...
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Menu
Open sidebar
abcl
abcl
Commits
9421a46a
Commit
9421a46a
authored
Aug 23, 2011
by
ehuelsmann@1c010e3e-69d0-11dd-93a8-456734b0d56f
Browse files
Follow-up to r13531: The first resource file is _0, not _1.
parent
af34c486
Changes
1
Hide whitespace changes
Inline
Side-by-side
src/org/armedbear/lisp/compile-file.lisp
View file @
9421a46a
...
...
@@ -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
))
...
...
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment