[asdf-devel] Changes to ASDF for LW6

[David McClain]

... 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
>> 
>> Dr. David McClain
>> dbm at refined-audiometrics.com
>> 
>> 
>> 
>> _______________________________________________
>> asdf-devel mailing list
>> asdf-devel at common-lisp.net
>> http://common-lisp.net/cgi-bin/mailman/listinfo/asdf-devel
> 

Dr. David McClain
dbm at refined-audiometrics.com