source: trunk/abcl/contrib/jss/compat.lisp @ 13396

Last change on this file since 13396 was 13396, checked in by Mark Evenson, 11 years ago

Correct my dyslexic spelling to ENSURE-COMPATIBILITY.

File size: 490 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  (setf *cl-user-compatibility* t)
8  (let ((dont-export '(add-to-classpath *cl-user-compatibility*)))
9    (loop :for symbol :being :each :external-symbol :in :jss 
10       :when (not (find symbol dont-export))
11       :do 
12         (unintern symbol :cl-user)
13       :and :do
14         (import symbol :cl-user))))
15
16   
Note: See TracBrowser for help on using the repository browser.