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 |