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 / isr2-defsystem.lisp < prev    next >
Text File  |  1995-04-12  |  3KB  |  62 lines
  1. ;;; -*- Mode:Common-Lisp; Package:USER; -*-
  2.  
  3. (unless (fboundp 'user::cdefvar)
  4.   (defmacro cdefvar (variable &optional (initial-value nil) (docstring nil))
  5.   "do defvar unless variable is already bound" 
  6.   ;;-- Bob Collins 5/20
  7.   ;;john brolio 1/7/88 -- to get rid of unspecial variable problem in compiling
  8.   `(eval-when (compile eval load)
  9.      (proclaim '(special ,variable))
  10.      (unless #+:EXPLORER (variable-boundp ,variable)
  11.          #-:EXPLORER (boundp ',variable)
  12.        (setf ,variable ,initial-value)
  13.        (setf (documentation ',variable 'variable) ,docstring)))))
  14.  
  15. (cdefvar *isr2-directory* "/home/isr2/")
  16.  
  17. (unless (find-package "LISPM") (make-package "LISPM"))
  18. (unless (find-package "CLIM") (make-package "CLIM"))
  19.  
  20. (unless (find-package "ISR2") (make-package "ISR2"))
  21. (#+:mk-defsystem make::defsystem #-:mk-defsystem defsys::defsystem user::isr2
  22.        (:name "Intermediate Symbolic Representation, Version 2")
  23.        (:short-name "ISR V2")
  24.        (:package "ISR2")
  25.        (:pathname-default *isr2-directory*)
  26. #-:EXPLORER
  27.        (:module lispm "lispm")
  28.        (:module isr2 "isr2")
  29.        (:module isr2parser "isr2parser")
  30.        (:module Isr2defs "isr2defs")
  31.        (:module Isr2basics "isr2basics")
  32.        (:module Isr2macros "isr2macros")
  33.        (:module Isr2tss    "isr2tss")
  34.        (:module Isr2extents ("isr2extents" "isr2pixelmap"))
  35.        (:module Isr2FileIo "isr2fileio")
  36. #-poplog
  37.        (:module Isr2readisr1file "isr2readisr1file")
  38.        (:module polygons ("isr2geometry" "isr2lag"))
  39.        (:module Pix ("isr2pix" "isr2specifypixelmap"))
  40.        (:module pixelfunctions ("isr2pixels"))
  41.        (:module grid ("grid" "rasterize"))
  42.        (:module rcde ("isr2rcde"))
  43. #-:EXPLORER
  44.        (:compile-load lispm)
  45.        (:compile-load isr2)
  46.        (:compile-load isr2parser (:fasload isr2))
  47.        (:compile-load isr2defs   (:fasload isr2parser isr2))
  48.        (:compile-load isr2basics (:fasload isr2 isr2parser isr2defs))
  49.        (:compile-load isr2macros (:fasload isr2 isr2parser isr2defs))
  50.        (:compile-load isr2tss    (:fasload  isr2macros isr2 isr2parser isr2defs isr2basics))
  51.        (:compile-load isr2extents (:fasload isr2 isr2parser isr2defs isr2basics))
  52.        (:compile-load isr2fileio (:fasload isr2 isr2parser isr2defs isr2basics isr2tss isr2extents))
  53. #-poplog
  54.        (:compile-load isr2readisr1file (:fasload isr2 isr2parser isr2defs isr2basics isr2tss
  55.                              isr2extents))
  56.        (:compile-load polygons (:fasload isr2 isr2parser isr2defs isr2basics #-:EXPLORER lispm))
  57.        (:compile-load Pix (:fasload isr2 isr2parser isr2defs isr2basics isr2extents polygons))
  58.        (:compile-load pixelfunctions (:fasload isr2 isr2parser isr2defs isr2basics isr2extents pix)) 
  59.        (:compile-load grid (:fasload isr2 isr2parser isr2defs isr2basics pixelfunctions))
  60.        (:compile-load rcde (:fasload isr2 isr2parser isr2defs isr2basics grid))
  61.        )
  62.