anchor.diff:                                     *default-pathname-defaults*))))
   
   (defun make-lisa-directory (components)
  -  (funcall #'make-pathname
  -         :directory
  -         (append (pathname-directory *lisa-root-pathname*) components)))
  +  (make-pathname
  +   :directory
  +   (append (pathname-directory *lisa-root-pathname*) components)))
   
   (setf (logical-pathname-translations "lisa")
  -  `(("src;*.*.*" ,(make-lisa-directory '("src")))
  +  `(("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")))))
  +    ("lib;lispworks;" ,(make-lisa-directory '("lib" "lispworks")))
  +    ("lib;cmucl;" ,(make-lisa-directory '("lib" "cmucl")))
  +    ("lib;clisp;" ,(make-lisa-directory '("lib" "clisp")))
  +    ("clocc;port;*.*.*" ,(make-lisa-directory '("contrib" "clocc" "port")))))
  +
  +(setf (logical-pathname-translations "clocc")
  +      `(("src;port;*.*.*" ,(translate-logical-pathname "lisa:clocc;port;"))))
   
   (defvar *lisa-source-pathname*
     (translate-logical-pathname "lisa:src;"))
  
positive.code: ;;; File: defsys.lisp
  ;;; Description: System definition file for LISA project.
  ;;;
  ;;; $Id: defsys.lisp,v 1.24 2001/03/06 18:54:21 youngde Exp $
  
  (in-package :user)
  
  
negative.code:   #-(or Allegro LispWorks CMU CLISP)
    (error "Unsupported implementation."))
  
  (load "lisa:clocc;port;port.system")
  
  #+CMU
  (progn
  