Skip to content
GitLab
Projects
Groups
Snippets
Help
Loading...
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
A
asdf
Project overview
Project overview
Details
Activity
Releases
Repository
Repository
Files
Commits
Branches
Tags
Contributors
Graph
Compare
Issues
1
Issues
1
List
Boards
Labels
Service Desk
Milestones
Merge Requests
0
Merge Requests
0
CI / CD
CI / CD
Pipelines
Jobs
Schedules
Operations
Operations
Incidents
Environments
Analytics
Analytics
CI / CD
Repository
Value Stream
Wiki
Wiki
Snippets
Snippets
Members
Members
Collapse sidebar
Close sidebar
Activity
Graph
Create a new issue
Jobs
Commits
Issue Boards
Open sidebar
Hugo Ishimaru
asdf
Commits
9423c735
Commit
9423c735
authored
Feb 20, 2013
by
Francois-Rene Rideau
Browse files
Options
Browse Files
Download
Email Patches
Plain Diff
2.29.8: avoid using reify-simple-sexp which only obscures errors
Also, some more tweak of exported symbol test, for ECL.
parent
400465c0
Changes
6
Hide whitespace changes
Inline
Side-by-side
Showing
6 changed files
with
17 additions
and
19 deletions
+17
-19
asdf.asd
asdf.asd
+1
-1
header.lisp
header.lisp
+1
-1
lisp-build.lisp
lisp-build.lisp
+12
-15
test/test-utilities.script
test/test-utilities.script
+1
-0
upgrade.lisp
upgrade.lisp
+1
-1
version.lisp-expr
version.lisp-expr
+1
-1
No files found.
asdf.asd
View file @
9423c735
...
...
@@ -74,7 +74,7 @@
:licence
"MIT"
:description
"Another System Definition Facility"
:long-description
"ASDF builds Common Lisp software organized into defined systems."
:version
"2.29.
7
"
;; to be automatically updated by make bump-version
:version
"2.29.
8
"
;; 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.
...
...
header.lisp
View file @
9423c735
;;; -*- mode: Common-Lisp; Base: 10 ; Syntax: ANSI-Common-Lisp -*-
;;; This is ASDF 2.29.
7
: Another System Definition Facility.
;;; This is ASDF 2.29.
8
: Another System Definition Facility.
;;;
;;; Feedback, bug reports, and patches are all welcome:
;;; please mail to <asdf-devel@common-lisp.net>.
...
...
lisp-build.lisp
View file @
9423c735
...
...
@@ -215,16 +215,14 @@ Note that ASDF ALWAYS raises an error if it fails to create an output file when
(
ccl::make-source-note
:filename
filename
:start-pos
start-pos
:end-pos
end-pos
:source
(
unreify-source-note
source
)))))
(
defun
reify-function-name
(
function-name
)
(
reify-simple-sexp
(
if-let
(
setfed
(
gethash
function-name
ccl::%setf-function-name-inverses%
))
`
(
setf
,
setfed
)
function-name
)))
(
if-let
(
setfed
(
gethash
function-name
ccl::%setf-function-name-inverses%
))
`
(
setf
,
setfed
)
function-name
))
(
defun
unreify-function-name
(
function-name
)
(
let
((
name
(
unreify-simple-sexp
function-name
)))
(
if
(
and
(
consp
name
)
(
eq
(
first
name
)
'setf
))
(
let
((
setfed
(
second
name
)))
(
gethash
setfed
ccl::%setf-function-names%
))
name
)))
(
if
(
and
(
consp
function-name
)
(
eq
(
first
function-name
)
'setf
))
(
let
((
setfed
(
second
function-name
)))
(
gethash
setfed
ccl::%setf-function-names%
))
function-name
))
(
defun
reify-deferred-warning
(
deferred-warning
)
(
with-accessors
((
warning-type
ccl::compiler-warning-warning-type
)
(
args
ccl::compiler-warning-args
)
...
...
@@ -233,7 +231,7 @@ Note that ASDF ALWAYS raises an error if it fails to create an output file when
(
list
:warning-type
warning-type
:function-name
(
reify-function-name
function-name
)
:source-note
(
reify-source-note
source-note
)
:args
(
destructuring-bind
(
fun
.
formals
)
args
(
cons
(
reify-function-name
fun
)
(
reify-simple-sexp
formals
)
)))))
(
cons
(
reify-function-name
fun
)
formals
)))))
(
defun
unreify-deferred-warning
(
reified-deferred-warning
)
(
destructuring-bind
(
&key
warning-type
function-name
source-note
args
)
reified-deferred-warning
...
...
@@ -243,7 +241,7 @@ Note that ASDF ALWAYS raises an error if it fails to create an output file when
:source-note
(
unreify-source-note
source-note
)
:warning-type
warning-type
:args
(
destructuring-bind
(
fun
.
formals
)
args
(
cons
(
unreify-function-name
fun
)
(
unreify-simple-sexp
formals
)
))))))
(
cons
(
unreify-function-name
fun
)
formals
))))))
#+
(
or
cmu
scl
)
(
defun
reify-undefined-warning
(
warning
)
;; Extracting undefined-warnings from the compilation-unit
...
...
@@ -289,9 +287,8 @@ Note that ASDF ALWAYS raises an error if it fails to create an output file when
using READ within a WITH-SAFE-IO-SYNTAX, that represents the warnings currently deferred by
WITH-COMPILATION-UNIT. One of three functions required for deferred-warnings support in ASDF."
#+
allegro
(
reify-simple-sexp
(
list
:functions-defined
excl::.functions-defined.
:functions-called
excl::.functions-called.
))
(
list
:functions-defined
excl::.functions-defined.
:functions-called
excl::.functions-called.
)
#+
clozure
(
mapcar
'reify-deferred-warning
(
if-let
(
dw
ccl::*outstanding-deferred-warnings*
)
...
...
@@ -333,7 +330,7 @@ One of three functions required for deferred-warnings support in ASDF."
(
declare
(
ignorable
reified-deferred-warnings
))
#+
allegro
(
destructuring-bind
(
&key
functions-defined
functions-called
)
(
unreify-simple-sexp
reified-deferred-warnings
)
reified-deferred-warnings
(
setf
excl::.functions-defined.
(
append
functions-defined
excl::.functions-defined.
)
excl::.functions-called.
...
...
test/test-utilities.script
View file @
9423c735
...
...
@@ -140,6 +140,7 @@
ASDF/BUNDLE:REGISTER-PRE-BUILT-SYSTEM
ASDF/BUNDLE:STATIC-LIBRARY
ASDF/IMAGE:CREATE-IMAGE
ASDF/IMAGE:DUMP-IMAGE
ASDF/LISP-BUILD:REIFY-UNDEFINED-WARNING
ASDF/OS:PARSE-FILE-LOCATION-INFO
ASDF/OS:PARSE-WINDOWS-SHORTCUT
...
...
upgrade.lisp
View file @
9423c735
...
...
@@ -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.29.
7
"
)
(
asdf-version
"2.29.
8
"
)
(
existing-version
(
asdf-version
)))
(
setf
*asdf-version*
asdf-version
)
(
when
(
and
existing-version
(
not
(
equal
asdf-version
existing-version
)))
...
...
version.lisp-expr
View file @
9423c735
"2.29.
7
"
"2.29.
8
"
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