Skip to content
Snippets Groups Projects
Commit 4ca2702b authored by rtoy's avatar rtoy
Browse files

Update example for target: search-list to work with the default CMUCL

binary distribution structure.
parent c18e393c
No related branches found
No related tags found
No related merge requests found
...@@ -5,7 +5,7 @@ ...@@ -5,7 +5,7 @@
;;; Carnegie Mellon University, and has been placed in the public domain. ;;; Carnegie Mellon University, and has been placed in the public domain.
;;; ;;;
(ext:file-comment (ext:file-comment
"$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/generic-site.lisp,v 1.16 2005/05/03 18:02:25 rtoy Exp $") "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/generic-site.lisp,v 1.17 2009/06/18 01:53:28 rtoy Exp $")
;;; ;;;
;;; ********************************************************************** ;;; **********************************************************************
;;; ;;;
...@@ -32,6 +32,26 @@ ...@@ -32,6 +32,26 @@
;;; and change it to point to the source location. This will allow the Hemlock ;;; and change it to point to the source location. This will allow the Hemlock
;;; "Edit Definition" command and the debugger to find sources for functions in ;;; "Edit Definition" command and the debugger to find sources for functions in
;;; the core. ;;; the core.
;;;
;;; The definition below assumes the default tree structure in a CMUCL
;;; distribution:
;;;
;;; top
;;; bin/
;;; lib/
;;; man/
;;; src/
;;;
;;; If your sources are located somewhere else, change this
;;; accordingly.
#| #|
(setf (search-list "target:") "<the source tree root>/") (setf (search-list "target:")
(list
(namestring
(make-pathname
:directory (pathname-directory
(merge-pathnames (make-pathname
:directory '(:relative :back :back
:back :back :back :back "src"))
(pathname lisp::*cmucl-core-path*)))))))
|# |#
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment