anchor.diff:  ;;; File: defsys.lisp
   ;;; Description: System definition file for LISA project.
   ;;;
  -;;; $Id: defsys.lisp,v 1.24 2001/03/06 18:54:21 youngde Exp $
  +;;; $Id: defsys.lisp,v 1.25 2001/03/06 21:24:10 youngde Exp $
   
   (in-package :user)
   
  
positive.code:                                    *default-pathname-defaults*))))
  
  (defun make-lisa-directory (components)
    (funcall #'make-pathname
           :directory
           (append (pathname-directory *lisa-root-pathname*) components)))
  
  (setf (logical-pathname-translations "lisa")
    `(("src;*.*.*" ,(make-lisa-directory '("src")))
      ("lib;acl;" ,(make-lisa-directory '("lib" "acl")))
      ("lib;lispworks;" (make-lisa-directory '("lib" "lispworks")))
      ("lib;cmucl;" (make-lisa-directory '("lib" "cmucl")))
      ("lib;clisp;" (make-lisa-directory '("lib" "clisp")))))
  
  (defvar *lisa-source-pathname*
    (translate-logical-pathname "lisa:src;"))
  
negative.code:                                        (:file "debug")
                                         (:file "instrumenting"))
                            :depends-on (packages utils lisa-macros generics)))
      :depends-on (port)
      :initially-do
      (progn
        (mk:system-source-size :lisa :all)
        (mk:system-source-size :lisa :new-source-and-dependents)))
  
  (defun compile-lisa ()
    (mk:compile-system :lisa))
  