jss.compat.lisp Maven / Gradle / Ivy

Go to download

Show more of this group Show more artifacts with this name
Show all versions of abcl-contrib Show documentation

Extra packages--contribs--for ABCL

The newest version!

(in-package :jss)

(defparameter *cl-user-compatibility* nil
  "Whether backwards compatibility with JSS's use of CL-USER has been enabled.")

(defun ensure-compatibility ()
  (require 'abcl-asdf)
  (loop :for symbol :in '("add-directory-jars-to-class-path"
                          "need-to-add-directory-jar?")
        :do 
          (unintern (intern symbol "CL-USER") :cl-user)
        :do
          (import (intern symbol "ABCL-ASDF") :cl-user))
  (let ((dont-export '(*cl-user-compatibility* add-to-classpath)))
    (loop :for symbol :being :each :external-symbol :in :jss 
       :when (not (find symbol dont-export))
         :do 
           (unintern symbol :cl-user)
         :and :do
           (import symbol :cl-user)))
  (setf *cl-user-compatibility* t))

;;; Because we're the last file in the ASDF system at the moment
(provide 'jss)