#47 small fix for lispworks5

closed-fixed
Sam Steingold
defsystem (13)
5
2014-08-16
2007-06-21
No

Defsystem-3.x doesn't load in Lispworks5; this prevents CLOCC from loading. Please update code in repository.

Here is a slightly modified version of definition of *central-registry* which fixes the problem. I add handling for the :lispworks5 feature:

(defvar *central-registry*
`(;; Current directory
"./"
#+:LUCID (working-directory)
#+ACLPC (current-directory)
#+:allegro (excl:current-directory)
#+:clisp (ext:default-directory)
#+:sbcl (progn *default-pathname-defaults*)
#+(or :cmu :scl) (ext:default-directory)
;; *** Marco Antoniotti <marcoxa@icsi.berkeley.edu>
;; Somehow it is better to qualify default-directory in CMU with
;; the appropriate package (i.e. "EXTENSIONS".)
;; Same for Allegro.
#+(and :lispworks (not :lispworks4) (not :lispworks5))
,(multiple-value-bind (major minor)
#-:lispworks-personal-edition
(system::lispworks-version)
#+:lispworks-personal-edition
(values system::*major-version-number*
system::*minor-version-number*)
(if (or (> major 3)
(and (= major 3) (> minor 2))
(and (= major 3) (= minor 2)
(equal (lisp-implementation-version) "3.2.1")))
`(make-pathname :directory
,(find-symbol "*CURRENT-WORKING-DIRECTORY*"
(find-package "SYSTEM")))
(find-symbol "*CURRENT-WORKING-DIRECTORY*"
(find-package "LW"))))
#+(or :lispworks4 :lispworks5)
(hcl:get-working-directory)
;; Home directory
#-sbcl
(mk::home-subdirectory "lisp/systems/")

;; Global registry
#+unix (pathname "/usr/local/lisp/Registry/")
)
"Central directory of system definitions.
May be either a single directory pathname, or a list of directory
pathnames to be checked after the local directory.")

Discussion

  • defsystem-3.x fix for Lispworks 5

     
    Attachments
  • Sam Steingold
    Sam Steingold
    2007-07-01

    • assigned_to: marcoxa --> sds
    • status: open --> closed-fixed
     
  • Sam Steingold
    Sam Steingold
    2007-07-01

    Logged In: YES
    user_id=5735
    Originator: NO

    fixed.
    thanks.