[asdf-devel] Changes to ASDF for LW6

[Faré]

I don't understand. Do you mean that there is a problem when you (load
"asdf") itself, or are you trying to (use-package :asdf) from cl-user?
The latter is probably a bad idea, and wasn't supported so far (so far
I know).

[ François-René ÐVB Rideau | Reflection&Cybernethics | http://fare.tunes.org ]
Can anyone please squash this butterfly in Tokyo? I'm sick with its flapping
wings changing the outcome of my life.




2010/2/26 David McClain <dbm at refined-audiometrics.com>:
> ... rather, in package :CL-USER, not :LW-USER. But apparently, LISPWORKS is automatically being used in CL-USER...
>
> - DM
>
> On Feb 26, 2010, at 01:13 AM, Chun Tian (binghe) wrote:
>
>> Hi, David
>>
>> I don't think it's necessary to make ASDF and LISPWORKS two packages live together. What you met can only happen when you try to defined a package which use above two packages at the same time:
>>
>> (defpackage xxx
>>  (:use :cl :asdf :lispworks))
>>
>> I don't think you have any good reason to use such a package.
>>
>> Regards,
>>
>> Chun Tian (binghe)
>>
>> 在 2010-2-26，15:44， David McClain 写道：
>>
>>> Hi,
>>>
>>> I just installed the latest available source for ASDF and had to make a few minor changes to the way the ASDF Package was being defined, for compatibility with Lispworks 6.0: (changes highlighted in red -- if you can see them)
>>>
>>>         ...
>>>
>>>           (ensure-shadow (package symbols)
>>>             (shadow symbols package))
>>>
>>>           (ensure-package (name &key nicknames use export unintern shadow)
>>>             (let* ((p (ensure-exists name nicknames)))
>>>               (ensure-use p use)
>>>               (ensure-unintern p unintern)
>>>
>>>               (ensure-shadow p shadow)
>>>
>>>               (ensure-export p export)
>>>               p)))
>>>    (ensure-package
>>>     ':asdf-utilities
>>>     :nicknames '(#:asdf-extensions)
>>>     :use '(#:common-lisp)
>>>     :export
>>>     '(#:absolute-pathname-p
>>>       #:aif
>>>
>>>       #-:LISPWORKS #:appendf
>>>
>>>       #:asdf-message
>>>       #:coerce-name
>>>       #:directory-pathname-p
>>>       #:ends-with
>>>       #:ensure-directory-pathname
>>>
>>>       #-:LISPWORKS #:getenv
>>>
>>>       #:get-uid
>>>       #:length=n-p
>>>       #:make-collector
>>>       #:pathname-directory-pathname
>>>       #:pathname-sans-name+type ;; deprecated. Use pathname-directory-pathname
>>>       #:read-file-forms
>>>       #:remove-keys
>>>       #:remove-keyword
>>>       #:resolve-symlinks
>>>       #:split
>>>       #:component-name-to-pathname-components
>>>       #:system-registered-p
>>>       #:truenamize))
>>>    (ensure-package
>>>     ':asdf
>>>     :use '(:common-lisp :asdf-utilities)
>>>     :unintern '(#:*asdf-revision*)
>>>
>>>     :shadow #+:LISPWORKS '(#:load-system
>>>                            #:compile-system
>>>                            #:defsystem)
>>>     #-:LISPWORKS '()
>>>
>>>     :export
>>>     '(#:defsystem #:oos #:operate #:find-system #:run-shell-command
>>>       #:system-definition-pathname #:find-component ; miscellaneous
>>>       #:compile-system #:load-system #:test-system
>>>       #:compile-op #:load-op #:load-source-op