source: tags/1.5.0/contrib/jss/compat.lisp

Last change on this file was 13937, checked in by Mark Evenson, 12 years ago

jss: fix ticket #205 JSS:WITH-CONSTANT-SIGNATURE.

Add more docstrings to JSS.

JAVA-CLASS-METHOD-NAMES is now a synonym for JSS.

File size: 920 bytes
Line 
1(in-package :jss)
2
3(defparameter *cl-user-compatibility* nil
4  "Whether backwards compatibility with JSS's use of CL-USER has been enabled.")
5
6(defun ensure-compatibility ()
7  "Ensure backwards compatibility with JSS's use of CL-USER."
8  (require 'abcl-asdf)
9  (loop :for symbol :in '("add-directory-jars-to-class-path"
10                          "need-to-add-directory-jar?")
11        :do 
12          (unintern (intern symbol "CL-USER") :cl-user)
13        :do
14          (import (intern symbol "ABCL-ASDF") :cl-user))
15  (let ((dont-export '(*cl-user-compatibility* add-to-classpath)))
16    (loop :for symbol :being :each :external-symbol :in :jss 
17       :when (not (find symbol dont-export))
18         :do 
19           (unintern symbol :cl-user)
20         :and :do
21           (import symbol :cl-user)))
22  (setf *cl-user-compatibility* t))
23
24;;; Because we're the last file in the ASDF system at the moment
25(provide 'jss)
26
27
28   
Note: See TracBrowser for help on using the repository browser.