Commit a3109afd by Pascal J. Bourguignon

Corrected setting of *readtable* in generate scripts. Bumped version.

parent 9087bd41
......@@ -40,7 +40,7 @@ UPLOAD_DIR = /home/pjb/public_html/sites/com.ogamita.www
UPLOAD_DOC_DIR = $(UPLOAD_DIR)/nasium-lse/
DOC_DIR = ../doc/
BUILD_HOSTS = kuiper galatea lassell # triton
BUILD_HOSTS = kuiper larissa lassell # triton
RMERGE = rsync -HSWacvxz --progress -e ssh
RSYNCH = rsync -HSWacvxz --progress -e ssh --force --delete --delete-after
......@@ -80,7 +80,7 @@ all:ChangeLog
help::
@printf $(HELPFORMAT) ChangeLog 'extracts the logs from git into the ChangeLog file.'
ChangeLog:.git
ChangeLog:../.git
git log > ChangeLog
#ChangeLog:../_FOSSIL_
# fossil timeline -n 2000 > ChangeLog
......
0.9998049000000023
\ No newline at end of file
0.9997979000000021
\ No newline at end of file
......@@ -31,9 +31,10 @@
;;;; You should have received a copy of the GNU Affero General Public License
;;;; along with this program. If not, see http://www.gnu.org/licenses/
;;;;**************************************************************************
(in-package "COMMON-LISP-USER")
(eval-when (:compile-toplevel :load-toplevel :execute)
(defvar *original-readtable* *readtable*)
(setf *readtable* (copy-readtable nil)))
(in-package "COMMON-LISP-USER")
(defparameter *program-name* "lse")
(defparameter *program-system* :com.informatimago.lse.cli)
......
......@@ -31,9 +31,10 @@
;;;; You should have received a copy of the GNU Affero General Public License
;;;; along with this program. If not, see <http://www.gnu.org/licenses/>.
;;;;**************************************************************************
(in-package "COMMON-LISP-USER")
(eval-when (:compile-toplevel :load-toplevel :execute)
(defvar *original-readtable* *readtable*)
(setf *readtable* (copy-readtable nil)))
(in-package "COMMON-LISP-USER")
#+ccl (setf ccl:*default-external-format* :unix
ccl:*default-file-character-encoding* :utf-8
......@@ -185,6 +186,8 @@
#+ccl (dolist (lib ccl::*shared-libraries* (terpri))
(print lib))
#+ccl (progn (princ "ccl:save-application will exit.") (terpri) (finish-output))
#+ccl (eval-when (:compile-toplevel :execute)
(setf *readtable* *original-readtable*))
#+ccl (ccl:save-application
(executable-filename *program-name*)
:toplevel-function (coerce (if (boolean-enval "LSE_USE_EXIT" nil)
......@@ -206,7 +209,8 @@
:prepend-kernel t
;; :native t
)
#+ccl (eval-when (:compile-toplevel :execute)
(setf *readtable* (copy-readtable nil)))
#+clisp (ext:saveinitmem
(executable-filename *program-name*)
......
......@@ -31,9 +31,10 @@
;;;; You should have received a copy of the GNU Affero General Public License
;;;; along with this program. If not, see http://www.gnu.org/licenses/
;;;;**************************************************************************
(in-package "COMMON-LISP-USER")
(eval-when (:compile-toplevel :load-toplevel :execute)
(defvar *original-readtable* *readtable*)
(setf *readtable* (copy-readtable nil)))
(in-package "COMMON-LISP-USER")
(defparameter *program-name* "lse-server")
(defparameter *program-system* :com.informatimago.lse.server)
(defparameter *program-main* (lambda () (intern "MAIN" "COM.INFORMATIMAGO.LSE.SERVER")))
......
......@@ -15,11 +15,11 @@
<key>CFBundleIdentifier</key>
<string>com.ogamita.nasium-lse</string>
<key>CFBundleVersion</key>
<string>1.0.0-0.999817-CCL-DARWIN</string>
<string>1.0.0-0.999798-CCL-DARWIN</string>
<key>CFBundleGetInfoString</key>
<string>1.0.0-0.999817-CCL-DARWIN, commit ac02947a9da4843109f1ad247489d7ec2b8ac53d, compiled 2015-04-03 13:26:45, on larissa.local, with features (lse-unix lse-extensions lse-case-insensitive).</string>
<string>1.0.0-0.999798-CCL-DARWIN, commit 9087bd41afb81969b500a4e8ed549cfd1b54d7f5, compiled 2016-02-06 19:30:25, on larissa.home, with features (lse-unix lse-extensions lse-server lse-case-insensitive).</string>
<key>CFBundleShortVersionString</key>
<string>1.0.0-0.999817</string>
<string>1.0.0-0.999798</string>
<key>CFBundleDocumentTypes</key>
<array>
......
......@@ -6,7 +6,7 @@ NasiumLSE_PGM="$APP/Contents/MacOS/lse-ccl-darwin-apple-14.1.0-x86-64"
exec osascript <<EOF
tell app "Terminal"
open "${Terminal_PROFILE}"
do script "${NasiumLSE_PGM} --modern-mode --accept-lowcase --mixed-output --accented-output --bell --unicode-halfwidth-arrows --show-bindings ; exit" in first window
do script "${NasiumLSE_PGM} --configuration-macosx-terminal ; exit" in first window
end tell
EOF
# --configuration-macosx-terminal
# --modern-mode --accept-lowcase --mixed-output --accented-output --bell --unicode-halfwidth-arrows --show-bindings
1.0.0-0.999817-CCL-DARWIN
\ No newline at end of file
1.0.0-0.999798-CCL-DARWIN
\ No newline at end of file
1.0.0-0.999817-CCL-DARWIN,
commit ac02947a9da4843109f1ad247489d7ec2b8ac53d,
compiled 2015-04-03 13:26:45,
on larissa.local,
with features (lse-unix lse-extensions lse-case-insensitive).
\ No newline at end of file
1.0.0-0.999798-CCL-DARWIN,
commit 9087bd41afb81969b500a4e8ed549cfd1b54d7f5,
compiled 2016-02-06 19:30:25,
on larissa.home,
with features (lse-unix lse-extensions lse-server lse-case-insensitive).
\ No newline at end of file
1.0.0-0.999817
\ No newline at end of file
1.0.0-0.999798
\ No newline at end of file
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment