anchor.diff:    #-(or Allegro LispWorks CMU CLISP)
     (error "Unsupported implementation."))
   
  -(defvar *clocc-source-pathname*
  -  (make-pathname :directory
  -                 (append (pathname-directory *lisa-root-pathname*)
  -                         '("contrib" "port"))))
  -
  -(setf (logical-pathname-translations "clocc")
  -      `(("src;port;*.*.*" ,*clocc-source-pathname*)))
  -
  -(defun directory-existsp (path)
  -  #+(or Allegro Lispworks CMU)
  -  (probe-file path)
  -  #+CLISP
  -  (lisp:probe-directory path)
  -  #-(or Allegro Lispworks CMU CLISP)
  -  (error "Unsupported implementation of DIRECTORY-EXISTS."))
  -
  -(defun mkdir (path)
  -  #+CMU
  -  (unix:unix-mkdir
  -   (directory-namestring path)
  -   (logior unix:readown unix:writeown
  -           unix:execown unix:readgrp unix:execgrp
  -           unix:readoth unix:execoth))
  -  #+Allegro
  -  (excl:make-directory path)
  -  #+Lispworks
  -  (system:make-directory path)
  -  #+CLISP
  -  (lisp:make-dir path)
  -  #-(or CMU Allegro LispWorks CLISP)
  -  (error "Unsupported implementation of MKDIR."))
  -  
  -;;; Make sure the binary directory structure exists, creating it if
  -;;; necessary...
  -
  -(defun ensure-lisa-directory-structure ()
  -  (let ((dirlist '("packages" "engine" "utils")))
  -    (unless (directory-existsp *lisa-binary-pathname*)
  -      (mkdir *lisa-binary-pathname*))
  -    (dolist (dir dirlist)
  -      (let ((path (make-pathname
  -                   :directory (append (pathname-directory
  -                                       *lisa-binary-pathname*)
  -                                      `(,dir)))))
  -        (unless (directory-existsp path)
  -          (mkdir path))))))
  +(load "lisa:clocc;port;port.system")
   
   #+CMU
   (progn
  
positive.code:                                        (:file "debug")
                                         (:file "instrumenting"))
                            :depends-on (packages utils lisa-macros generics)))
      :initially-do
      (ensure-lisa-directory-structure))
  
  (defun compile-lisa ()
    (mk:compile-system :lisa))
  
negative.code: ;;; File: defsys.lisp
  ;;; Description: System definition file for LISA project.
  ;;;
  ;;; $Id: defsys.lisp,v 1.25 2001/03/06 21:24:10 youngde Exp $
  
  (in-package :user)
  
  