home *** CD-ROM | disk | FTP | other *** search
/ vis-ftp.cs.umass.edu / vis-ftp.cs.umass.edu.tar / vis-ftp.cs.umass.edu / pub / Software / ASCENDER / ascendMar8.tar / UMass / ISR / load-isr2.lisp < prev    next >
Lisp/Scheme  |  1995-04-12  |  566b  |  24 lines
  1.  
  2. ;;; load ISR2 basic system into the RCDE
  3. ;;; Bob Collins, 2/27/95, 8:54 AM (and snowing outside)
  4.  
  5. (in-package 'user)
  6.  
  7. ;;; SET THE ISR2 DIRECTORY PATH HERE
  8.  
  9. (unless (boundp '*isr2-directory*)
  10.   (defvar *isr2-directory* "/home/isr2/"))
  11.  
  12. ;;; NOW LOAD THE DEFSYSTEMS
  13.  
  14. (unless (find-package 'defsys)
  15.   (load (format nil "~alucid-defsystem" *isr2-directory*)))
  16.  
  17. (load (format nil "~aisr2-defsystem" *isr2-directory*))
  18.  
  19. ;;; NOW LOAD THE ISR
  20.  
  21. (if *umass-compile*
  22.     (defsys:make-system 'isr2 :compile :load :noconfirm)
  23.     (defsys:make-system 'isr2 :load :noconfirm))
  24.