/[gcl]/gcl/debian/in.gcl-clc.sh
ViewVC logotype

Diff of /gcl/debian/in.gcl-clc.sh

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.2 by camm, Thu Nov 25 00:06:07 2004 UTC revision 1.3 by camm, Thu Nov 25 02:18:35 2004 UTC
# Line 49  for PROF in n y; do Line 49  for PROF in n y; do
49    
50      if [ -f $gcl_bin ] ; then      if [ -f $gcl_bin ] ; then
51          image=$($gcl_bin -batch -eval '(princ (namestring (merge-pathnames (make-pathname :name "saved_clc_gcl") (pathname si:*system-directory*))))')          image=$($gcl_bin -batch -eval '(princ (namestring (merge-pathnames (make-pathname :name "saved_clc_gcl") (pathname si:*system-directory*))))')
52          gcl_clc=$($gcl_bin -batch -eval '(princ (namestring (merge-pathnames (make-pathname :directory (pathname-directory (pathname si::*lib-directory*))) (pathname "/usr/lib/common-lisp/"))))')          gcl_clc=$($gcl_bin -batch -eval '(princ (namestring (make-pathname :directory (append (pathname-directory (pathname "/usr/lib/common-lisp/")) (last (pathname-directory (pathname si::*lib-directory*)))))))')
53      else      else
54          echo "Cannot find gcl." 1>&2          echo "Cannot find gcl." 1>&2
55          exit 1          exit 1

Legend:
Removed from v.1.2  
changed lines
  Added in v.1.3

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26