/[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.1 by camm, Fri Aug 6 18:21:50 2004 UTC revision 1.2 by camm, Thu Nov 25 00:06:07 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 (car (nreverse (pathname-directory (pathname si::*lib-directory*))))) (pathname "/usr/lib/common-lisp/"))))')          gcl_clc=$($gcl_bin -batch -eval '(princ (namestring (merge-pathnames (make-pathname :directory (pathname-directory (pathname si::*lib-directory*))) (pathname "/usr/lib/common-lisp/"))))')
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.1  
changed lines
  Added in v.1.2

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