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
3b674e74
Commit
3b674e74
authored
Jan 31, 2013
by
Francois-Rene Rideau
Browse files
2.26.172: fixes for POIU, Genera, etc.
parent
3689ff49
Changes
9
Hide whitespace changes
Inline
Side-by-side
action.lisp
View file @
3b674e74
...
...
@@ -6,7 +6,6 @@
(
:recycle
:asdf/action
:asdf
)
(
:use
:asdf/common-lisp
:asdf/driver
:asdf/upgrade
:asdf/component
:asdf/system
#:asdf/cache
:asdf/find-system
:asdf/find-component
:asdf/operation
)
(
:intern
#:stamp
#:done-p
)
(
:export
#:action
#:define-convenience-action-methods
#:explain
#:action-description
...
...
@@ -17,7 +16,7 @@
#:component-operation-time
#:mark-operation-done
#:compute-action-stamp
#:perform
#:perform-with-restarts
#:retry
#:accept
#:feature
#:traverse-actions
#:traverse-sub-actions
#:required-components
;; in plan
#:action-path
#:find-action
))
#:action-path
#:find-action
#:stamp
#:done-p
))
(
in-package
:asdf/action
)
(
deftype
action
()
'
(
cons
operation
component
))
;; a step to be performed while building the system
...
...
asdf.asd
View file @
3b674e74
...
...
@@ -66,7 +66,7 @@
:licence
"MIT"
:description
"Another System Definition Facility"
:long-description
"ASDF builds Common Lisp software organized into defined systems."
:version
"2.26.17
1
"
;; to be automatically updated by make bump-version
:version
"2.26.17
2
"
;; 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.
...
...
common-lisp.lisp
View file @
3b674e74
...
...
@@ -150,19 +150,20 @@
(
labels
((
emit
(
start
end
)
(
when
(
and
(
zerop
start
)
(
=
end
length
))
(
return-from
remove-substrings
string
))
(
unless
stream
(
setf
stream
(
make-string-output-stream
)))
(
write-string
string
stream
:start
start
:end
end
))
(
when
(
<
start
end
)
(
unless
stream
(
setf
stream
(
make-string-output-stream
)))
(
write-string
string
stream
:start
start
:end
end
)))
(
recurse
(
substrings
start
end
)
(
cond
((
=
start
end
))
((
>
=
start
end
))
((
null
substrings
)
(
emit
start
end
))
(
t
(
let*
((
sub
(
first
substrings
))
(
found
(
search
sub
string
))
(
found
(
search
sub
string
:start2
start
:end2
end
))
(
more
(
rest
substrings
)))
(
cond
(
found
(
recurse
more
start
found
)
(
recurse
more
(
+
found
(
length
sub
))
end
))
(
recurse
substrings
(
+
found
(
length
sub
))
end
))
(
t
(
recurse
more
start
end
))))))))
(
recurse
substrings
0
length
))
...
...
filesystem.lisp
View file @
3b674e74
...
...
@@ -91,7 +91,8 @@ or the original (parsed) pathname if it is false (the default)."
#-
(
or
allegro
clisp
gcl2.6
)
(
if
truename
(
probe-file
p
)
(
and
(
ignore-errors
(
and
(
not
(
wild-pathname-p
p
))
(
ignore-errors
(
let
((
pp
(
translate-logical-pathname
p
)))
#+
(
or
cmu
scl
)
(
unix:unix-stat
(
ext:unix-namestring
pp
))
#+
(
and
lispworks
unix
)
(
system:get-file-stat
pp
)
...
...
header.lisp
View file @
3b674e74
;;; -*- mode: Common-Lisp; Base: 10 ; Syntax: ANSI-Common-Lisp -*-
;;; This is ASDF 2.26.17
1
: Another System Definition Facility.
;;; This is ASDF 2.26.17
2
: Another System Definition Facility.
;;;
;;; Feedback, bug reports, and patches are all welcome:
;;; please mail to <asdf-devel@common-lisp.net>.
...
...
package.lisp
View file @
3b674e74
...
...
@@ -393,7 +393,7 @@ or when loading the package is optional."
(
check-type
symbol
symbol
)
(
check-type
to-package
package
)
(
check-type
from-package
package
)
(
check-type
mixp
boolean
)
(
check-type
mixp
(
member
nil
t
))
; no cl:boolean on Genera
(
check-type
shadowed
hash-table
)
(
check-type
imported
hash-table
)
(
check-type
inherited
hash-table
)
...
...
@@ -482,7 +482,7 @@ or when loading the package is optional."
(
defun
ensure-symbol
(
name
package
intern
recycle
shadowed
imported
inherited
exported
)
(
check-type
name
string
)
(
check-type
package
package
)
(
check-type
intern
boolean
)
(
check-type
intern
(
member
nil
t
))
; no cl:boolean on Genera
(
check-type
shadowed
hash-table
)
(
check-type
imported
hash-table
)
(
check-type
inherited
hash-table
)
...
...
plan.lisp
View file @
3b674e74
...
...
@@ -64,9 +64,9 @@ the action of OPERATION on COMPONENT in the PLAN"))
(
:documentation
"Status of an action in a plan"
))
(
defmethod
print-object
((
status
planned-action-status
)
stream
)
(
print-unreadable-object
(
status
stream
:type
t
)
(
with-slots
(
stamp
done-p
planned-p
)
status
(
format
stream
"~@{~S~^ ~}"
:stamp
stamp
:done-p
done-p
:planned-p
planned-p
))))
(
print-unreadable-object
(
status
stream
:type
t
:identity
nil
)
(
with-slots
(
stamp
done-p
planned-p
index
)
status
(
format
stream
"~@{~S~^ ~}"
:stamp
stamp
:done-p
done-p
:planned-p
planned-p
:index
index
))))
(
defmethod
action-planned-p
(
action-status
)
(
declare
(
ignorable
action-status
))
; default method for non planned-action-status objects
...
...
upgrade.lisp
View file @
3b674e74
...
...
@@ -51,7 +51,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.26.17
1
"
)
(
asdf-version
"2.26.17
2
"
)
(
existing-version
(
asdf-version
)))
(
setf
*asdf-version*
asdf-version
)
(
when
(
and
existing-version
(
not
(
equal
asdf-version
existing-version
)))
...
...
version.lisp-expr
View file @
3b674e74
"2.26.17
1
"
"2.26.17
2
"
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