Skip to content
GitLab
Projects
Groups
Snippets
/
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Menu
Open sidebar
asdf
asdf
Commits
5f0f990a
Commit
5f0f990a
authored
Feb 27, 2013
by
Francois-Rene Rideau
Browse files
2.31.4: class name can be read from string.
add safe-read-from-string to support it.
parent
5187114d
Changes
6
Hide whitespace changes
Inline
Side-by-side
asdf.asd
View file @
5f0f990a
...
...
@@ -74,7 +74,7 @@
:licence
"MIT"
:description
"Another System Definition Facility"
:long-description
"ASDF builds Common Lisp software organized into defined systems."
:version
"2.31.
3
"
;; to be automatically updated by make bump-version
:version
"2.31.
4
"
;; to be automatically updated by make bump-version
:depends-on
()
#+
asdf3
:encoding
#+
asdf3
:utf-8
;; For most purposes, asdf itself specially counts as a builtin system.
...
...
defsystem.lisp
View file @
5f0f990a
...
...
@@ -48,8 +48,9 @@
(
or
(
loop
:for
symbol
:in
(
list
type
(
find-symbol*
type
*package*
nil
)
(
find-symbol*
type
:asdf/interface
nil
))
:for
class
=
(
and
symbol
(
find-class*
symbol
nil
))
(
find-symbol*
type
:asdf/interface
nil
)
(
and
(
stringp
type
)
(
safe-read-from-string
type
:package
:asdf/interface
)))
:for
class
=
(
and
symbol
(
symbolp
symbol
)
(
find-class*
symbol
nil
))
:when
(
and
class
(
#-
cormanlisp
subtypep
#+
cormanlisp
cl::subclassp
class
(
find-class*
'component
)))
...
...
header.lisp
View file @
5f0f990a
;;; -*- mode: Common-Lisp; Base: 10 ; Syntax: ANSI-Common-Lisp -*-
;;; This is ASDF 2.31.
3
: Another System Definition Facility.
;;; This is ASDF 2.31.
4
: Another System Definition Facility.
;;;
;;; Feedback, bug reports, and patches are all welcome:
;;; please mail to <asdf-devel@common-lisp.net>.
...
...
stream.lisp
View file @
5f0f990a
...
...
@@ -9,7 +9,7 @@
#:detect-encoding
#:*encoding-detection-hook*
#:always-default-encoding
#:encoding-external-format
#:*encoding-external-format-hook*
#:default-encoding-external-format
#:*default-encoding*
#:*utf-8-external-format*
#:with-safe-io-syntax
#:call-with-safe-io-syntax
#:with-safe-io-syntax
#:call-with-safe-io-syntax
#:safe-read-from-string
#:with-output
#:output-string
#:with-input
#:with-input-file
#:call-with-input-file
#:finish-outputs
#:format!
#:safe-format!
...
...
@@ -110,7 +110,11 @@ and implementation-defined external-format's")
(
*read-default-float-format*
'double-float
)
(
*print-readably*
nil
)
(
*read-eval*
nil
))
(
funcall
thunk
)))))
(
funcall
thunk
))))
(
defun
safe-read-from-string
(
string
&key
(
package
:cl
)
(
eof-error-p
t
)
eof-value
(
start
0
)
end
preserve-whitespace
)
(
with-safe-io-syntax
(
:package
package
)
(
read-from-string
string
eof-error-p
eof-value
:start
start
:end
end
:preserve-whitespace
preserve-whitespace
))))
;;; Output to a stream or string, FORMAT-style
...
...
upgrade.lisp
View file @
5f0f990a
...
...
@@ -52,7 +52,7 @@ You can compare this string with e.g.: (ASDF:VERSION-SATISFIES (ASDF:ASDF-VERSIO
;; "3.4.5.67" would be a development version in the official upstream of 3.4.5.
;; "3.4.5.0.8" would be your eighth local modification of official release 3.4.5
;; "3.4.5.67.8" would be your eighth local modification of development version 3.4.5.67
(
asdf-version
"2.31.
3
"
)
(
asdf-version
"2.31.
4
"
)
(
existing-version
(
asdf-version
)))
(
setf
*asdf-version*
asdf-version
)
(
when
(
and
existing-version
(
not
(
equal
asdf-version
existing-version
)))
...
...
version.lisp-expr
View file @
5f0f990a
"2.31.
3
"
"2.31.
4
"
Write
Preview
Supports
Markdown
0%
Try again
or
attach a new 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