[asdf-devel] Changes to ASDF for LW6

26 Feb 2010

      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@refined-audiometrics.com