- cmucl-cvs - mailman3.common-lisp.net

[cmucl-cvs] [git] CMU Common Lisp branch master updated. snapshot-2012-12-6-g683d116
by Raymond Toy 22 Dec '12

22 Dec '12

This is an automated email from the git hooks/post-receive script. It was generated because a ref change was pushed to the repository containing the project "CMU Common Lisp". The branch, master has been updated via 683d11688c0a5c0f4a44fdc301706f14913fa5ed (commit) from 75a020cf12f776c5fee74905887e62b6cccca48e (commit) Those revisions listed above that are new to this repository have not appeared on any other notification email; so we list those revisions in full, below. - Log ----------------------------------------------------------------- commit 683d11688c0a5c0f4a44fdc301706f14913fa5ed Author: Raymond Toy <toy.raymond(a)gmail.com> Date: Thu Dec 20 19:38:57 2012 -0800 Reinstate ability to compile with gcc on sparc. Config.sparc_common: o Enable ASSEM_SRC, ARCH_SRC, OS_SRC, OS_LIBS again Config.sparc_gcc: o Don't use -traditional-cpp when creating dependencies because that causes the old (varargs.h) version of va_start to be used instead of the stdard.h version we want. Config.sparc_sunc: o Remove ASSEM_SRC, ARCH_SRC, OS_SRC, OS_LINK_FLAGS, and OS_LIBS since they're in Config.sparc_common. diff --git a/src/lisp/Config.sparc_common b/src/lisp/Config.sparc_common index 027d495..3b07c14 100644 --- a/src/lisp/Config.sparc_common +++ b/src/lisp/Config.sparc_common @@ -50,11 +50,11 @@ CPPFLAGS = -I. -I$(PATH1) -DSOLARIS -DSVR4 $(CC_V8PLUS) $(LINKAGE) $(GENCGC) $(U CFLAGS = -g $(CC_V8PLUS) NM = $(PATH1)/solaris-nm -#ASSEM_SRC = sparc-assem.S -#ARCH_SRC = sparc-arch.c +ASSEM_SRC = sparc-assem.S +ARCH_SRC = sparc-arch.c DEPEND=$(CC) -#OS_SRC = solaris-os.c os-common.c undefineds.c elf.c k_rem_pio2.c +OS_SRC = solaris-os.c os-common.c undefineds.c elf.c k_rem_pio2.c OS_LINK_FLAGS= -#OS_LIBS= -lsocket -lnsl -ldl +OS_LIBS= -lsocket -lnsl -ldl EXEC_FINAL_OBJ = exec-final.o diff --git a/src/lisp/Config.sparc_gcc b/src/lisp/Config.sparc_gcc index b0d27ad..d08af18 100644 --- a/src/lisp/Config.sparc_gcc +++ b/src/lisp/Config.sparc_gcc @@ -26,5 +26,5 @@ endif CC = gcc -O -Wall CPP = gcc -E -DEPEND_FLAGS = -MM -traditional-cpp +DEPEND_FLAGS = -MM ASFLAGS = -g -traditional-cpp $(AS_V8PLUS) diff --git a/src/lisp/Config.sparc_sunc b/src/lisp/Config.sparc_sunc index acd54ed..1072f7b 100644 --- a/src/lisp/Config.sparc_sunc +++ b/src/lisp/Config.sparc_sunc @@ -20,13 +20,6 @@ CC_V8PLUS = -m32 -xarch=sparc AS_V8PLUS = -m32 -xarch=sparc endif -ASSEM_SRC = sparc-assem.S -ARCH_SRC = sparc-arch.c - -OS_SRC = solaris-os.c os-common.c undefineds.c elf.c k_rem_pio2.c -OS_LINK_FLAGS= -OS_LIBS= -lsocket -lnsl -ldl - CC = cc -xlibmieee -O CPP = cc -E DEPEND_FLAGS = -xM ----------------------------------------------------------------------- Summary of changes: src/lisp/Config.sparc_common | 8 ++++---- src/lisp/Config.sparc_gcc | 2 +- src/lisp/Config.sparc_sunc | 7 ------- 3 files changed, 5 insertions(+), 12 deletions(-) hooks/post-receive -- CMU Common Lisp

1 0

[cmucl-cvs] [git] CMU Common Lisp branch master updated. snapshot-2012-12-5-g75a020c
by Raymond Toy 19 Dec '12

19 Dec '12

This is an automated email from the git hooks/post-receive script. It was generated because a ref change was pushed to the repository containing the project "CMU Common Lisp". The branch, master has been updated via 75a020cf12f776c5fee74905887e62b6cccca48e (commit) from 5b98c1cb418d4e4b2594ff406748e2a9d9af83e9 (commit) Those revisions listed above that are new to this repository have not appeared on any other notification email; so we list those revisions in full, below. - Log ----------------------------------------------------------------- commit 75a020cf12f776c5fee74905887e62b6cccca48e Author: Raymond Toy <toy.raymond(a)gmail.com> Date: Tue Dec 18 19:22:16 2012 -0800 Add source-location information for DEFINE-COMPILER-MACRO. Patch from Helmut Eller, cmucl-imp 2012-12-16. diff --git a/src/code/macros.lisp b/src/code/macros.lisp index 934bcbb..892e1cf 100644 --- a/src/code/macros.lisp +++ b/src/code/macros.lisp @@ -192,9 +192,9 @@ ;;; (defmacro define-symbol-macro (name expansion) `(eval-when (:compile-toplevel :load-toplevel :execute) - (%define-symbol-macro ',name ',expansion))) + (%define-symbol-macro ',name ',expansion (c::source-location)))) ;;; -(defun %define-symbol-macro (name expansion) +(defun %define-symbol-macro (name expansion source-location) (unless (symbolp name) (error 'simple-type-error :datum name :expected-type 'symbol :format-control (intl:gettext "Symbol macro name is not a symbol: ~S.") @@ -202,7 +202,8 @@ (ecase (info variable kind name) ((:macro :global nil) (setf (info variable kind name) :macro) - (setf (info variable macro-expansion name) expansion)) + (setf (info variable macro-expansion name) expansion) + (set-defvar-source-location name source-location)) (:special (error 'simple-program-error :format-control (intl:gettext "Symbol macro name already declared special: ~S.") ----------------------------------------------------------------------- Summary of changes: src/code/macros.lisp | 7 ++++--- 1 files changed, 4 insertions(+), 3 deletions(-) hooks/post-receive -- CMU Common Lisp

1 0

[cmucl-cvs] [git] CMU Common Lisp branch master updated. snapshot-2012-12-4-g5b98c1c
by Raymond Toy 11 Dec '12

11 Dec '12

This is an automated email from the git hooks/post-receive script. It was generated because a ref change was pushed to the repository containing the project "CMU Common Lisp". The branch, master has been updated via 5b98c1cb418d4e4b2594ff406748e2a9d9af83e9 (commit) from c5d23ae79d1e97554256a43e331eb870954c8e2e (commit) Those revisions listed above that are new to this repository have not appeared on any other notification email; so we list those revisions in full, below. - Log ----------------------------------------------------------------- commit 5b98c1cb418d4e4b2594ff406748e2a9d9af83e9 Author: Raymond Toy <toy.raymond(a)gmail.com> Date: Mon Dec 10 21:17:43 2012 -0800 Print out more info on specialization errors. diff --git a/src/compiler/disassem.lisp b/src/compiler/disassem.lisp index 2ffeb1b..13f6b35 100644 --- a/src/compiler/disassem.lisp +++ b/src/compiler/disassem.lisp @@ -1670,7 +1670,13 @@ (> (specializer-rank i1) (specializer-rank i2))))) (defun specialization-error (insts) - (error (intl:gettext "Instructions either aren't related or conflict in some way:~% ~s") insts)) + (error + (with-output-to-string (s) + (let ((*standard-output* s)) + (format s (intl:gettext "Instructions either aren't related or conflict in some way:~%")) + (dolist (inst insts) + (print-inst-bits inst) + (format s " ~S~%" inst)))))) (defun try-specializing (insts) "Given a list of instructions INSTS, Sees if one of these instructions is a ----------------------------------------------------------------------- Summary of changes: src/compiler/disassem.lisp | 8 +++++++- 1 files changed, 7 insertions(+), 1 deletions(-) hooks/post-receive -- CMU Common Lisp

1 0

[cmucl-cvs] [git] CMU Common Lisp branch master updated. snapshot-2012-12-3-gc5d23ae
by Raymond Toy 03 Dec '12

03 Dec '12

This is an automated email from the git hooks/post-receive script. It was generated because a ref change was pushed to the repository containing the project "CMU Common Lisp". The branch, master has been updated via c5d23ae79d1e97554256a43e331eb870954c8e2e (commit) via a9f4515bd5b4bb4489297fbd1121457879724dee (commit) from 420ac32313fbe762c29c2dee111748e16ba851cb (commit) Those revisions listed above that are new to this repository have not appeared on any other notification email; so we list those revisions in full, below. - Log ----------------------------------------------------------------- commit c5d23ae79d1e97554256a43e331eb870954c8e2e Author: Raymond Toy <toy.raymond(a)gmail.com> Date: Sun Dec 2 22:27:21 2012 -0800 Updated from source code changes. diff --git a/src/i18n/locale/cmucl.pot b/src/i18n/locale/cmucl.pot index e338251..7dabde4 100644 --- a/src/i18n/locale/cmucl.pot +++ b/src/i18n/locale/cmucl.pot @@ -17389,15 +17389,15 @@ msgstr "" #: src/compiler/new-assem.lisp msgid "" "Byte spec ~S either overlaps another byte spec, or ~\n" -" extends past the end." +" extends past the end in emitter ~S." msgstr "" #: src/compiler/new-assem.lisp -msgid "There are holes." +msgid "There are holes in emitter ~S." msgstr "" #: src/compiler/new-assem.lisp -msgid "~D isn't an even multiple of ~D" +msgid "~D isn't an even multiple of ~D in emitter ~S" msgstr "" #: src/compiler/new-assem.lisp commit a9f4515bd5b4bb4489297fbd1121457879724dee Author: Raymond Toy <toy.raymond(a)gmail.com> Date: Sun Dec 2 22:27:06 2012 -0800 Print out name of offending emitter in some error messages. diff --git a/src/compiler/new-assem.lisp b/src/compiler/new-assem.lisp index d9fdb32..f6179de 100644 --- a/src/compiler/new-assem.lisp +++ b/src/compiler/new-assem.lisp @@ -1553,8 +1553,8 @@ (quo rem) (truncate total-bits assembly-unit-bits) (unless (zerop rem) - (error (intl:gettext "~D isn't an even multiple of ~D") - total-bits assembly-unit-bits)) + (error (intl:gettext "~D isn't an even multiple of ~D in emitter ~S") + total-bits assembly-unit-bits name)) quo)) (bytes (make-array num-bytes :initial-element nil)) (segment-arg (gensym "SEGMENT-"))) @@ -1565,8 +1565,8 @@ (arg (gensym (format nil "~:@(ARG-FOR-~S-~)" byte-spec-expr)))) (when (ldb-test (byte byte-size byte-posn) overall-mask) (error (intl:gettext "Byte spec ~S either overlaps another byte spec, or ~ - extends past the end.") - byte-spec-expr)) + extends past the end in emitter ~S.") + byte-spec-expr name)) (setf (ldb byte-spec overall-mask) -1) (arg-names arg) (arg-types `(type (integer ,(ash -1 (1- byte-size)) ----------------------------------------------------------------------- Summary of changes: src/compiler/new-assem.lisp | 8 ++++---- src/i18n/locale/cmucl.pot | 6 +++--- 2 files changed, 7 insertions(+), 7 deletions(-) hooks/post-receive -- CMU Common Lisp

1 0

[cmucl-cvs] [git] CMU Common Lisp branch master updated. snapshot-2012-12-1-g420ac32
by Raymond Toy 02 Dec '12

02 Dec '12

This is an automated email from the git hooks/post-receive script. It was generated because a ref change was pushed to the repository containing the project "CMU Common Lisp". The branch, master has been updated via 420ac32313fbe762c29c2dee111748e16ba851cb (commit) from 3de1b873641f0bec715d1af6d31ff39aa6a370dd (commit) Those revisions listed above that are new to this repository have not appeared on any other notification email; so we list those revisions in full, below. - Log ----------------------------------------------------------------- commit 420ac32313fbe762c29c2dee111748e16ba851cb Author: Raymond Toy <toy.raymond(a)gmail.com> Date: Sun Dec 2 09:31:02 2012 -0800 When emitter has holes, print out name of offending emitter. diff --git a/src/compiler/new-assem.lisp b/src/compiler/new-assem.lisp index 5492eb7..d9fdb32 100644 --- a/src/compiler/new-assem.lisp +++ b/src/compiler/new-assem.lisp @@ -1614,7 +1614,7 @@ ,arg) (svref bytes end-byte)))))))))) (unless (= overall-mask -1) - (error (intl:gettext "There are holes."))) + (error (intl:gettext "There are holes in emitter ~S.") name)) (let ((forms nil)) (dotimes (i num-bytes) (let ((pieces (svref bytes i))) ----------------------------------------------------------------------- Summary of changes: src/compiler/new-assem.lisp | 2 +- 1 files changed, 1 insertions(+), 1 deletions(-) hooks/post-receive -- CMU Common Lisp

1 0

[cmucl-cvs] [git] CMU Common Lisp annotated tag snapshot-2012-12 created. snapshot-2012-12
by Raymond Toy 21 Nov '12

21 Nov '12

This is an automated email from the git hooks/post-receive script. It was generated because a ref change was pushed to the repository containing the project "CMU Common Lisp". The annotated tag, snapshot-2012-12 has been created at 612c19035f604f04b5ddc488c6404d3aceeab60a (tag) tagging 3de1b873641f0bec715d1af6d31ff39aa6a370dd (commit) replaces 20d tagged by Raymond Toy on Wed Nov 21 12:21:22 2012 -0800 - Log ----------------------------------------------------------------- Snapshot 2012-12 -----BEGIN PGP SIGNATURE----- Version: GnuPG v1.4.11 (Darwin) iEYEABECAAYFAlCtN8kACgkQBs44GQhsdQsF9QCfVd4TeXNmMTvHr5kdqw7qag9F ybgAnR/8jgnlNorjGjq6NpVVyDDf4Ib3 =Rbpz -----END PGP SIGNATURE----- Raymond Toy (11): Update asdf to version 2.25. Merge branch 'master' of ssh://common-lisp.net/var/git/projects/cmucl/cmucl o Update to asdf 2.26 Update asdf to version 2.25. o Update to asdf 2.26 Merge branch 'master' of ssh://common-lisp.net/var/git/projects/cmucl/cmucl Deprecate the -8 option since we don't support 8-bit builds anymore. Revert changes to unicode-complete; can't complete #\Hangul_syllable_ Update. Need to precompile the ef-osc slot too. Otherwise, the first attempt Oops. Need to tell precompile-ef-slot about +ef-osc+. ----------------------------------------------------------------------- hooks/post-receive -- CMU Common Lisp

1 0

[cmucl-cvs] [git] CMU Common Lisp branch master updated. 20d-11-g3de1b87
by Raymond Toy 20 Nov '12

20 Nov '12

This is an automated email from the git hooks/post-receive script. It was generated because a ref change was pushed to the repository containing the project "CMU Common Lisp". The branch, master has been updated via 3de1b873641f0bec715d1af6d31ff39aa6a370dd (commit) from 38f32e9f4aed41488e8094162292f923767d06e3 (commit) Those revisions listed above that are new to this repository have not appeared on any other notification email; so we list those revisions in full, below. - Log ----------------------------------------------------------------- commit 3de1b873641f0bec715d1af6d31ff39aa6a370dd Author: Raymond Toy <toy.raymond(a)gmail.com> Date: Mon Nov 19 22:42:47 2012 -0800 Oops. Need to tell precompile-ef-slot about +ef-osc+. diff --git a/src/code/extfmts.lisp b/src/code/extfmts.lisp index 7308b5d..a389dcb 100644 --- a/src/code/extfmts.lisp +++ b/src/code/extfmts.lisp @@ -1171,7 +1171,8 @@ character and illegal outputs are replaced by a question mark.") (#.+ef-os+ (%ef-octets-to-string ef)) (#.+ef-so+ (%ef-string-to-octets ef)) (#.+ef-en+ (%ef-encode ef)) - (#.+ef-de+ (%ef-decode ef)))) + (#.+ef-de+ (%ef-decode ef)) + (#.+ef-osc+ (%ef-octets-to-string-counted ef)))) `(setf (aref (ef-cache (find-external-format ,(ef-name ef))) ,slot) ,(subst (ef-name ef) ef (function-lambda-expression (aref (ef-cache ef) slot)))))) ----------------------------------------------------------------------- Summary of changes: src/code/extfmts.lisp | 3 ++- 1 files changed, 2 insertions(+), 1 deletions(-) hooks/post-receive -- CMU Common Lisp

1 0

[cmucl-cvs] [git] CMU Common Lisp branch master updated. 20d-10-g38f32e9
by Raymond Toy 20 Nov '12

20 Nov '12

This is an automated email from the git hooks/post-receive script. It was generated because a ref change was pushed to the repository containing the project "CMU Common Lisp". The branch, master has been updated via 38f32e9f4aed41488e8094162292f923767d06e3 (commit) via b1318713728055e8227ada913ebaa00d007c2ca4 (commit) from ae862666db52263be094586fb68e61364ea5b359 (commit) Those revisions listed above that are new to this repository have not appeared on any other notification email; so we list those revisions in full, below. - Log ----------------------------------------------------------------- commit 38f32e9f4aed41488e8094162292f923767d06e3 Author: Raymond Toy <toy.raymond(a)gmail.com> Date: Mon Nov 19 19:39:55 2012 -0800 Need to precompile the ef-osc slot too. Otherwise, the first attempt to read a file will cause it to be compiled, which isn't quite what we wanted. diff --git a/src/code/fd-stream-comp.lisp b/src/code/fd-stream-comp.lisp index e05dc1a..af58c80 100644 --- a/src/code/fd-stream-comp.lisp +++ b/src/code/fd-stream-comp.lisp @@ -26,6 +26,7 @@ (stream::precompile-ef-slot :iso8859-1 #.stream::+ef-so+) (stream::precompile-ef-slot :iso8859-1 #.stream::+ef-en+) (stream::precompile-ef-slot :iso8859-1 #.stream::+ef-de+) +(stream::precompile-ef-slot :iso8859-1 #.stream::+ef-osc+) (stream::precompile-ef-slot :utf-8 #.stream::+ef-cin+) (stream::precompile-ef-slot :utf-8 #.stream::+ef-cout+) @@ -34,4 +35,4 @@ (stream::precompile-ef-slot :utf-8 #.stream::+ef-so+) (stream::precompile-ef-slot :utf-8 #.stream::+ef-en+) (stream::precompile-ef-slot :utf-8 #.stream::+ef-de+) - +(stream::precompile-ef-slot :utf-8 #.stream::+ef-osc+) commit b1318713728055e8227ada913ebaa00d007c2ca4 Author: Raymond Toy <toy.raymond(a)gmail.com> Date: Sun Nov 18 20:51:16 2012 -0800 Update. diff --git a/src/general-info/release-20e.txt b/src/general-info/release-20e.txt index 52eee31..aff9643 100644 --- a/src/general-info/release-20e.txt +++ b/src/general-info/release-20e.txt @@ -30,8 +30,11 @@ New in this release: * Bugfixes: * Trac Tickets: + * Ticket #52 reopened. * Other changes: + * -8 option for build-all.sh is deprecated since we don't + officially support 8-bit builds anymore. * Improvements to the PCL implementation of CLOS: ----------------------------------------------------------------------- Summary of changes: src/code/fd-stream-comp.lisp | 3 ++- src/general-info/release-20e.txt | 3 +++ 2 files changed, 5 insertions(+), 1 deletions(-) hooks/post-receive -- CMU Common Lisp

1 0

[cmucl-cvs] [git] CMU Common Lisp branch master updated. 20d-8-gae86266
by Raymond Toy 18 Nov '12

18 Nov '12

This is an automated email from the git hooks/post-receive script. It was generated because a ref change was pushed to the repository containing the project "CMU Common Lisp". The branch, master has been updated via ae862666db52263be094586fb68e61364ea5b359 (commit) via 09afca189e07f3355b4486a29d0b4142b240e0c8 (commit) via 8a26586362de29ffb376b146d16a4da312ee8a34 (commit) via 4911f79a89763f609dce82fd112bbd728d44d464 (commit) via efd259685b7525a8ffc9d33c2ea4b9e358359a37 (commit) via a48f47b65118a12f9c40b899d8b20ee93da55a83 (commit) via 6633ddde3093d1146a160e48dd40a2fbf7e74bf9 (commit) via b55fd57bd8260f7f6277d579a0775711d916c3cf (commit) from 02fc6d02d6973e4061729bf9308beca23baaff2a (commit) Those revisions listed above that are new to this repository have not appeared on any other notification email; so we list those revisions in full, below. - Log ----------------------------------------------------------------- commit ae862666db52263be094586fb68e61364ea5b359 Author: Raymond Toy <toy.raymond(a)gmail.com> Date: Sun Nov 18 14:31:48 2012 -0800 Revert changes to unicode-complete; can't complete #\Hangul_syllable_ but the old version could. This unfixes Trac #52. diff --git a/src/code/unidata.lisp b/src/code/unidata.lisp index 981e2a7..45e8804 100644 --- a/src/code/unidata.lisp +++ b/src/code/unidata.lisp @@ -1231,65 +1231,98 @@ Three values are returned: (1) The best match of prefix, (2) a list of possible completions, (3) a boolean indicating whether the best match is a complete unicode name. " + (unless dict - (load-names) + ;; Load the names dictionary, if needed. + (unless (unidata-name+ *unicode-data*) + (load-names)) (setf dict (unidata-name+ *unicode-data*))) - (let* ((prefix (nsubstitute #\Space #\_ (string-upcase prefix))) - (result nil)) - (labels ((keybase (node) - (ash (aref (dictionary-nextv dict) node) -18)) - (keylen (base) - (aref (dictionary-keyl dict) base)) - (keystr (base offset) - (aref (dictionary-cdbk dict) - (aref (dictionary-keyv dict) (+ base offset)))) - (next (node keypos) - (+ (logand (aref (dictionary-nextv dict) node) #x3FFFF) - keypos)) - (completep (node) - (> (aref (dictionary-codev dict) node) -1)) - (match (part prefix posn) - (let ((s1 (search part prefix :start2 posn)) - (s2 (search prefix part :start1 posn))) - (or (and s1 (= s1 posn)) - (and s2 (zerop s2))))) - (rec (node posn) - (let ((keyv (keybase node))) - (dotimes (i (keylen keyv)) - (let* ((str (keystr keyv i)) (len (length str))) - (when (match str prefix posn) - (cond ((<= (+ len posn) (length prefix)) - (rec (next node i) (+ posn len))) - (t - (push (fillout (concatenate 'string (subseq prefix 0 posn) - str) - (next node i)) - result)))))))) - (fillout (string node) - (let ((keyv (keybase node))) - (if (and (= (keylen keyv) 1) (not (completep node))) - (fillout (concatenate 'string string (keystr keyv 0)) - (next node 0)) - string))) - (mip (strings) - (let* ((first (first strings)) - (posn (length first))) - (dolist (string (rest strings)) - (let ((n (mismatch first string :end1 posn))) - (when n (setq posn n)))) - (subseq first 0 posn))) - (str (x) (nsubstitute #\_ #\Space (string-capitalize x)))) - (rec 0 0) - (unless (cdr result) - (setq prefix (car result)) - (rec 0 0)) - (let* ((base (mip result)) - (node (search-dictionary base dict))) - (values (str base) - (sort (mapcar (lambda (x) (subseq (str x) (length base))) - (delete base result :test #'string=)) - #'string<) - (and node (completep node))))))) + (let ((prefix (nsubstitute #\Space #\_ (string-upcase prefix))) + completep) + (multiple-value-bind (n p) + (search-dictionary prefix dict) + (when n + (setq completep (> (aref (dictionary-codev dict) n) -1))) + #+(or debug-uc) + (progn + (format t "n,p,complete = ~S ~S ~S~%" n p completep) + (when n (format t "match = ~S~%" (subseq prefix 0 p)))) + (cond ((not p) + (values (%str prefix) nil nil)) + ((= p (length prefix)) + ;; The prefix is an exact match to something in the code + ;; book. Try to find possible completions of this + ;; prefix. + (let ((x (node-next n dict)) + (suffix "")) + #+(or debug-uc) + (format t "init x = ~S~%" x) + (when (= (length x) 1) + ;; There was only one possible extension. Try to + ;; extend from there. + #+(or debug-uc) + (format t "extending~%") + (setq suffix (caar x) + n (cdar x) + x (node-next (cdar x) dict))) + #+(or debug-uc) + (progn + (format t "x = ~S~%" x) + (format t "suffix = ~S~%" suffix)) + (when (<= (length x) 1) + (setq prefix (concatenate 'string prefix suffix)) + (setf suffix "")) + (values (%str prefix) + (sort (mapcar #'(lambda (e) + (%str (concatenate 'string suffix (car e)))) + x) + #'string<) + (or (> (aref (dictionary-codev dict) n) -1) + completep)))) + (t + ;; The prefix was not an exact match of some entry in the + ;; codebook. Try to find some completions from there. + (let* ((nodex (node-next n dict)) + (x (remove-if-not (lambda (x) + (%match (car x) prefix p)) + nodex))) + #+(or debug-uc) + (progn + (format t "nodex = ~S~%" nodex) + (format t "x = ~S~%" x)) + (setq prefix (subseq prefix 0 p)) + (cond ((= (length x) 1) + ;; Only one possible completion. Try to extend + ;; the completions from there. + (setq prefix (concatenate 'string prefix (caar x)) + n (cdar x) + x (node-next (cdar x) dict)) + (values (%str prefix) + (sort (mapcar #'%strx x) #'string<) + (> (aref (dictionary-codev dict) n) -1))) + (t + ;; There's more than one possible completion. + ;; Try to extend each of those completions one + ;; more step, but we still want to keep the + ;; original completions. + (let* ((p (append (mapcar #'car x) + (mapcan #'(lambda (ex) + (let ((next (node-next (cdr ex) dict))) + (if next + (mapcar #'(lambda (n) + (concatenate 'string (car ex) (car n))) + (node-next (cdr ex) dict)) + (list (car ex))))) + x))) + (q (%mip p))) + (setq prefix (concatenate 'string prefix q)) + + (do ((tmp p (cdr tmp))) + ((endp tmp)) + (setf (car tmp) (subseq (car tmp) (length q)))) + (values (%str prefix) + (sort (mapcar #'%str p) #'string<) + nil)))))))))) ;; Like unicode-complete-name, but we also try to handle the names ;; that can be computed algorithmically like the Hangul syllables and @@ -1306,9 +1339,6 @@ do (push (concatenate 'string prefix-match x) names)) (when completep (push prefix-match names)) - (when (zerop (length prefix-match)) - ;; The prefix isn't a prefix for anything, so return nil - (return-from unicode-complete nil)) (flet ((han-or-cjk-completion (prefix-match prefix dictionary) (let* ((prefix-tail (subseq prefix-match (min (length prefix) commit 09afca189e07f3355b4486a29d0b4142b240e0c8 Author: Raymond Toy <toy.raymond(a)gmail.com> Date: Sun Nov 18 14:27:50 2012 -0800 Deprecate the -8 option since we don't support 8-bit builds anymore. diff --git a/bin/build-all.sh b/bin/build-all.sh index 4585f37..7cf7c88 100755 --- a/bin/build-all.sh +++ b/bin/build-all.sh @@ -29,7 +29,7 @@ usage () echo ' -v v Use the given string as the version.' echo " -o x Use specified Lisp to build unicode version." echo " (only applicable for build 1)" - echo " -8 x Use specified Lisp to build 8-bit version." + echo " -8 x DEPRECATED: Use specified Lisp to build 8-bit version." echo " (only applicable for build 1)" echo " -U Update and overwite the translations files." echo " -P On the last build, (re)generate cmucl.pot and the" @@ -47,7 +47,8 @@ do B) bootfiles="$bootfiles -B $OPTARG" ;; C) CREATE_OPT="$OPTARG" ;; o) OLDLISP="$OPTARG" ;; - 8) OLD8="$OPTARG" ;; + 8) OLD8="$OPTARG" + echo "WARNING: -8 is deprecated";; v) VERSION="$OPTARG"; VERSION_SET=true ;; U) UPDATE_TRANS="-U" ;; P) UPDATE_POT="" ;; commit 8a26586362de29ffb376b146d16a4da312ee8a34 Merge: 4911f79 02fc6d0 Author: Raymond Toy <toy.raymond(a)gmail.com> Date: Sun Nov 18 09:19:07 2012 -0800 Merge branch 'master' of ssh://common-lisp.net/var/git/projects/cmucl/cmucl commit 4911f79a89763f609dce82fd112bbd728d44d464 Author: Raymond Toy <toy.raymond(a)gmail.com> Date: Sat Nov 17 14:37:12 2012 -0800 o Update to asdf 2.26 o Add release-20e.txt. diff --git a/src/contrib/asdf/asdf.lisp b/src/contrib/asdf/asdf.lisp index 13061c3..283ad86 100644 --- a/src/contrib/asdf/asdf.lisp +++ b/src/contrib/asdf/asdf.lisp @@ -1,5 +1,5 @@ ;;; -*- mode: Common-Lisp; Base: 10 ; Syntax: ANSI-Common-Lisp ; coding: utf-8 -*- -;;; This is ASDF 2.25: Another System Definition Facility. +;;; This is ASDF 2.26: Another System Definition Facility. ;;; ;;; Feedback, bug reports, and patches are all welcome: ;;; please mail to <asdf-devel(a)common-lisp.net>. @@ -118,7 +118,7 @@ ;; "2.345.6" would be a development version in the official upstream ;; "2.345.0.7" would be your seventh local modification of official release 2.345 ;; "2.345.6.7" would be your seventh local modification of development version 2.345.6 - (asdf-version "2.25") + (asdf-version "2.26") (existing-asdf (find-class 'component nil)) (existing-version *asdf-version*) (already-there (equal asdf-version existing-version))) @@ -230,7 +230,6 @@ :redefined-functions ',redefined-functions))) (pkgdcl :asdf - :nicknames (:asdf-utilities) ;; DEPRECATED! Do not use, for backward compatibility only. :use (:common-lisp) :redefined-functions (#:perform #:explain #:output-files #:operation-done-p @@ -3350,6 +3349,15 @@ located." (defun* getenv-absolute-directories (x) (getenv-pathnames x :want-absolute t :want-directory t)) +(defun* get-folder-path (folder) + (or ;; this semi-portably implements a subset of the functionality of lispworks' sys:get-folder-path + #+(and lispworks mswindows) (sys:get-folder-path folder) + ;; read-windows-registry HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\User Shell Folders\AppData + (ecase folder + (:local-appdata (getenv-absolute-directory "LOCALAPPDATA")) + (:appdata (getenv-absolute-directory "APPDATA")) + (:common-appdata (or (getenv-absolute-directory "ALLUSERSAPPDATA") + (subpathname* (getenv-absolute-directory "ALLUSERSPROFILE") "Application Data/")))))) (defun* user-configuration-directories () (let ((dirs @@ -3359,15 +3367,8 @@ located." (loop :for dir :in (getenv-absolute-directories "XDG_CONFIG_DIRS") :collect (subpathname* dir "common-lisp/")))) ,@(when (os-windows-p) - `(,(subpathname* (or #+(and lispworks (not lispworks-personal-edition)) - (sys:get-folder-path :local-appdata) - (getenv-absolute-directory "LOCALAPPDATA")) - "common-lisp/config/") - ;; read-windows-registry HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\User Shell Folders\AppData - ,(subpathname* (or #+(and lispworks (not lispworks-personal-edition)) - (sys:get-folder-path :appdata) - (getenv-absolute-directory "APPDATA")) - "common-lisp/config/"))) + `(,(subpathname* (get-folder-path :local-appdata) "common-lisp/config/") + ,(subpathname* (get-folder-path :appdata) "common-lisp/config/"))) ,(subpathname (user-homedir) ".config/common-lisp/")))) (remove-duplicates (remove-if-not #'absolute-pathname-p dirs) :from-end t :test 'equal))) @@ -3378,11 +3379,7 @@ located." ((os-windows-p) (aif ;; read-windows-registry HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\User Shell Folders\Common AppData - (subpathname* (or #+(and lispworks (not lispworks-personal-edition)) - (sys:get-folder-path :common-appdata) - (getenv-absolute-directory "ALLUSERSAPPDATA") - (subpathname* (getenv-absolute-directory "ALLUSERSPROFILE") "Application Data/")) - "common-lisp/config/") + (subpathname* (get-folder-path :common-appdata) "common-lisp/config/") (list it))))) (defun* in-first-directory (dirs x &key (direction :input)) @@ -3507,12 +3504,8 @@ and the order is by decreasing length of namestring of the source pathname.") (or (try (getenv-absolute-directory "XDG_CACHE_HOME") "common-lisp" :implementation) (when (os-windows-p) - (try (or #+(and lispworks (not lispworks-personal-edition)) - (sys:get-folder-path :local-appdata) - (getenv-absolute-directory "LOCALAPPDATA") - #+(and lispworks (not lispworks-personal-edition)) - (sys:get-folder-path :appdata) - (getenv-absolute-directory "APPDATA")) + (try (or (get-folder-path :local-appdata) + (get-folder-path :appdata)) "common-lisp" "cache" :implementation)) '(:home ".cache" "common-lisp" :implementation)))) @@ -3917,11 +3910,12 @@ effectively disabling the output translation facility." (if (absolute-pathname-p output-file) ;; what cfp should be doing, w/ mp* instead of mp (let* ((type (pathname-type (apply 'compile-file-pathname "x.lisp" keys))) - (defaults (make-pathname - :type type :defaults (merge-pathnames* input-file)))) - (merge-pathnames* output-file defaults)) + (defaults (make-pathname + :type type :defaults (merge-pathnames* input-file)))) + (merge-pathnames* output-file defaults)) (apply-output-translations - (apply 'compile-file-pathname input-file keys)))) + (apply 'compile-file-pathname input-file + (if output-file keys (remove-keyword :output-file keys)))))) (defun* tmpize-pathname (x) (make-pathname @@ -4234,6 +4228,7 @@ with a different configuration, so the configuration would be re-read then." (defun* wrapping-source-registry () `(:source-registry + #+ecl (:tree ,(translate-logical-pathname "SYS:")) #+mkcl (:tree ,(translate-logical-pathname "CONTRIB:")) #+sbcl (:tree ,(truenamize (getenv-pathname "SBCL_HOME" :want-directory t))) :inherit-configuration @@ -4250,16 +4245,7 @@ with a different configuration, so the configuration would be re-read then." ,@(or (getenv-absolute-directories "XDG_DATA_DIRS") '("/usr/local/share" "/usr/share")))) ,@(when (os-windows-p) - `(,(or #+(and lispworks (not lispworks-personal-edition)) - (sys:get-folder-path :local-appdata) - (getenv-absolute-directory "LOCALAPPDATA")) - ,(or #+(and lispworks (not lispworks-personal-edition)) - (sys:get-folder-path :appdata) - (getenv-absolute-directory "APPDATA")) - ,(or #+(and lispworks (not lispworks-personal-edition)) - (sys:get-folder-path :common-appdata) - (getenv-absolute-directory "ALLUSERSAPPDATA") - (subpathname* (getenv-absolute-directory "ALLUSERSPROFILE") "Application Data/"))))) + (mapcar 'get-folder-path '(:local-appdata :appdata :common-appdata)))) :collect `(:directory ,(subpathname* dir "common-lisp/systems/")) :collect `(:tree ,(subpathname* dir "common-lisp/source/"))) :inherit-configuration)) diff --git a/src/general-info/release-20e.txt b/src/general-info/release-20e.txt new file mode 100644 index 0000000..52eee31 --- /dev/null +++ b/src/general-info/release-20e.txt @@ -0,0 +1,48 @@ +========================== C M U C L 20 e ============================= + +[In Progress] + +The CMUCL project is pleased to announce the release of CMUCL 20e. +This is a major release which contains numerous enhancements and +bug fixes from the 20c release. + +CMUCL is a free, high performance implementation of the Common Lisp +programming language which runs on most major Unix platforms. It +mainly conforms to the ANSI Common Lisp standard. CMUCL provides a +sophisticated native code compiler; a powerful foreign function +interface; an implementation of CLOS, the Common Lisp Object System, +which includes multi-methods and a meta-object protocol; a source-level +debugger and code profiler; and an Emacs-like editor implemented in +Common Lisp. CMUCL is maintained by a team of volunteers collaborating +over the Internet, and is mostly in the public domain. + +New in this release: + + * Known issues: + + * Feature enhancements + + * Changes + * ASDF2 updated to version 2.26. + + * ANSI compliance fixes: + + * Bugfixes: + + * Trac Tickets: + + * Other changes: + + * Improvements to the PCL implementation of CLOS: + + * Changes to building procedure: + +This release is not binary compatible with code compiled using CMUCL +20d; you will need to recompile FASL files. + +See <URL:http://www.cmucl.org> or +<URL:http://trac.common-lisp.net/cmucl> for download information, +guidelines on reporting bugs, and mailing list details. + + +We hope you enjoy using this release of CMUCL! commit efd259685b7525a8ffc9d33c2ea4b9e358359a37 Author: Raymond Toy <toy.raymond(a)gmail.com> Date: Wed Oct 10 22:36:53 2012 -0700 Update asdf to version 2.25. diff --git a/src/contrib/asdf/asdf.lisp b/src/contrib/asdf/asdf.lisp index a97632d..13061c3 100644 --- a/src/contrib/asdf/asdf.lisp +++ b/src/contrib/asdf/asdf.lisp @@ -1,5 +1,5 @@ ;;; -*- mode: Common-Lisp; Base: 10 ; Syntax: ANSI-Common-Lisp ; coding: utf-8 -*- -;;; This is ASDF 2.24: Another System Definition Facility. +;;; This is ASDF 2.25: Another System Definition Facility. ;;; ;;; Feedback, bug reports, and patches are all welcome: ;;; please mail to <asdf-devel(a)common-lisp.net>. @@ -118,7 +118,7 @@ ;; "2.345.6" would be a development version in the official upstream ;; "2.345.0.7" would be your seventh local modification of official release 2.345 ;; "2.345.6.7" would be your seventh local modification of development version 2.345.6 - (asdf-version "2.24") + (asdf-version "2.25") (existing-asdf (find-class 'component nil)) (existing-version *asdf-version*) (already-there (equal asdf-version existing-version))) @@ -364,9 +364,10 @@ #:user-source-registry-directory #:system-source-registry-directory - ;; Utilities + ;; Utilities: please use asdf-utils instead + #| ;; #:aif #:it - #:appendf #:orf + ;; #:appendf #:orf #:length=n-p #:remove-keys #:remove-keyword #:first-char #:last-char #:string-suffix-p @@ -389,7 +390,7 @@ #:while-collecting #:*wild* #:*wild-file* #:*wild-directory* #:*wild-inferiors* #:*wild-path* #:wilden - #:directorize-pathname-host-device + #:directorize-pathname-host-device|# ))) #+genera (import 'scl:boolean :asdf) (setf *asdf-version* asdf-version @@ -462,6 +463,7 @@ or ASDF:LOAD-SOURCE-OP if your fasl loading is somehow broken.") (progn (deftype logical-pathname () nil) (defun make-broadcast-stream () *error-output*) + (defun translate-logical-pathname (x) x) (defun file-namestring (p) (setf p (pathname p)) (format nil "~@[~A~]~@[.~A~]" (pathname-name p) (pathname-type p)))) @@ -3321,8 +3323,9 @@ located." (defun* user-homedir () (truenamize (pathname-directory-pathname + #+cormanlisp (ensure-directory-pathname (user-homedir-pathname)) #+mcl (current-user-homedir-pathname) - #-mcl (user-homedir-pathname)))) + #-(or cormanlisp mcl) (user-homedir-pathname)))) (defun* ensure-pathname* (x want-absolute want-directory fmt &rest args) (when (plusp (length x)) @@ -3356,11 +3359,13 @@ located." (loop :for dir :in (getenv-absolute-directories "XDG_CONFIG_DIRS") :collect (subpathname* dir "common-lisp/")))) ,@(when (os-windows-p) - `(,(subpathname* (or #+lispworks (sys:get-folder-path :local-appdata) + `(,(subpathname* (or #+(and lispworks (not lispworks-personal-edition)) + (sys:get-folder-path :local-appdata) (getenv-absolute-directory "LOCALAPPDATA")) "common-lisp/config/") ;; read-windows-registry HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\User Shell Folders\AppData - ,(subpathname* (or #+lispworks (sys:get-folder-path :appdata) + ,(subpathname* (or #+(and lispworks (not lispworks-personal-edition)) + (sys:get-folder-path :appdata) (getenv-absolute-directory "APPDATA")) "common-lisp/config/"))) ,(subpathname (user-homedir) ".config/common-lisp/")))) @@ -3373,7 +3378,8 @@ located." ((os-windows-p) (aif ;; read-windows-registry HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\User Shell Folders\Common AppData - (subpathname* (or #+lispworks (sys:get-folder-path :common-appdata) + (subpathname* (or #+(and lispworks (not lispworks-personal-edition)) + (sys:get-folder-path :common-appdata) (getenv-absolute-directory "ALLUSERSAPPDATA") (subpathname* (getenv-absolute-directory "ALLUSERSPROFILE") "Application Data/")) "common-lisp/config/") @@ -3501,9 +3507,11 @@ and the order is by decreasing length of namestring of the source pathname.") (or (try (getenv-absolute-directory "XDG_CACHE_HOME") "common-lisp" :implementation) (when (os-windows-p) - (try (or #+lispworks (sys:get-folder-path :local-appdata) + (try (or #+(and lispworks (not lispworks-personal-edition)) + (sys:get-folder-path :local-appdata) (getenv-absolute-directory "LOCALAPPDATA") - #+lispworks (sys:get-folder-path :appdata) + #+(and lispworks (not lispworks-personal-edition)) + (sys:get-folder-path :appdata) (getenv-absolute-directory "APPDATA")) "common-lisp" "cache" :implementation)) '(:home ".cache" "common-lisp" :implementation)))) @@ -4242,11 +4250,14 @@ with a different configuration, so the configuration would be re-read then." ,@(or (getenv-absolute-directories "XDG_DATA_DIRS") '("/usr/local/share" "/usr/share")))) ,@(when (os-windows-p) - `(,(or #+lispworks (sys:get-folder-path :local-appdata) + `(,(or #+(and lispworks (not lispworks-personal-edition)) + (sys:get-folder-path :local-appdata) (getenv-absolute-directory "LOCALAPPDATA")) - ,(or #+lispworks (sys:get-folder-path :appdata) + ,(or #+(and lispworks (not lispworks-personal-edition)) + (sys:get-folder-path :appdata) (getenv-absolute-directory "APPDATA")) - ,(or #+lispworks (sys:get-folder-path :common-appdata) + ,(or #+(and lispworks (not lispworks-personal-edition)) + (sys:get-folder-path :common-appdata) (getenv-absolute-directory "ALLUSERSAPPDATA") (subpathname* (getenv-absolute-directory "ALLUSERSPROFILE") "Application Data/"))))) :collect `(:directory ,(subpathname* dir "common-lisp/systems/")) diff --git a/src/general-info/release-20d.txt b/src/general-info/release-20d.txt index 6cfb978..591d0d8 100644 --- a/src/general-info/release-20d.txt +++ b/src/general-info/release-20d.txt @@ -28,7 +28,7 @@ New in this release: * Added external format for EUC-KR. * Changes - * ASDF2 updated to version 2.24. + * ASDF2 updated to version 2.25. * Behavior of STRING-TO-OCTETS has changed. This is an incompatible change from the previous version but should be more useful when a buffer is given which is not large enough to hold commit a48f47b65118a12f9c40b899d8b20ee93da55a83 Author: Raymond Toy <toy.raymond(a)gmail.com> Date: Sat Oct 27 09:06:18 2012 -0700 Oops. expr should not have a "^" character in the regexp. (Sparc complains about this.) diff --git a/bin/load-world.sh b/bin/load-world.sh index 1ca3779..8b8c2eb 100755 --- a/bin/load-world.sh +++ b/bin/load-world.sh @@ -16,11 +16,11 @@ GIT_HASH="`(cd src; git describe --dirty 2>/dev/null)`" # If the git hash looks like a snapshot tag or release, don't add the date. VERSION="`date '+%Y-%m-%d %H:%M:%S'`${GIT_HASH:+ $GIT_HASH}" -if expr "X${GIT_HASH}" : '^Xsnapshot-[0-9][0-9][0-9][0-9]-[01][0-9]' > /dev/null; then +if expr "X${GIT_HASH}" : 'Xsnapshot-[0-9][0-9][0-9][0-9]-[01][0-9]' > /dev/null; then VERSION="${GIT_HASH}" fi -if expr "X${GIT_HASH}" : '^X[0-9][0-9][a-f]' > /dev/null; then +if expr "X${GIT_HASH}" : 'X[0-9][0-9][a-f]' > /dev/null; then VERSION="${GIT_HASH}" fi echo $VERSION commit 6633ddde3093d1146a160e48dd40a2fbf7e74bf9 Author: Raymond Toy <toy.raymond(a)gmail.com> Date: Sat Oct 27 08:56:52 2012 -0700 Check the git hash for a release tag too. diff --git a/bin/load-world.sh b/bin/load-world.sh index b2fcb2e..1ca3779 100755 --- a/bin/load-world.sh +++ b/bin/load-world.sh @@ -14,11 +14,14 @@ NO_PCL_FEATURE= # Default version is the date with the git hash. GIT_HASH="`(cd src; git describe --dirty 2>/dev/null)`" -# If the git hash looks like a snapshot tag, don't add the date. +# If the git hash looks like a snapshot tag or release, don't add the date. +VERSION="`date '+%Y-%m-%d %H:%M:%S'`${GIT_HASH:+ $GIT_HASH}" if expr "X${GIT_HASH}" : '^Xsnapshot-[0-9][0-9][0-9][0-9]-[01][0-9]' > /dev/null; then VERSION="${GIT_HASH}" -else - VERSION="`date '+%Y-%m-%d %H:%M:%S'`${GIT_HASH:+ $GIT_HASH}" +fi + +if expr "X${GIT_HASH}" : '^X[0-9][0-9][a-f]' > /dev/null; then + VERSION="${GIT_HASH}" fi echo $VERSION commit b55fd57bd8260f7f6277d579a0775711d916c3cf Author: Raymond Toy <toy.raymond(a)gmail.com> Date: Sat Oct 27 08:42:26 2012 -0700 * src/compiler/byte-comp.lisp * Bump fasl version for release * src/bootfiles/20c/boot-20d.lisp * Boot file for building the release with a new fasl version. diff --git a/src/bootfiles/20c/boot-20d.lisp b/src/bootfiles/20c/boot-20d.lisp new file mode 100644 index 0000000..21f86d1 --- /dev/null +++ b/src/bootfiles/20c/boot-20d.lisp @@ -0,0 +1,68 @@ +;;;; +;;;; Boot file for changing the fasl file version numbers to 20d. +;;;; + +(in-package :c) + +(setf lisp::*enable-package-locked-errors* nil) + +;;; +;;; Note that BYTE-FASL-FILE-VERSION is a constant. +;;; +;;; (Be sure to change BYTE-FASL-FILE-VERSION in +;;; compiler/byte-comp.lisp to the correct value too!) +;;; +#-cmu20d +(setf (symbol-value 'byte-fasl-file-version) #x20d) +#-cmu20d +(setf (backend-fasl-file-version *target-backend*) #x20d) + +;;; +;;; Don't check fasl versions in the compiling Lisp because we'll +;;; load files compiled with the new version numbers. +;;; +#-cmu20d +(setq lisp::*skip-fasl-file-version-check* t) + +;;; +;;; This is here because BYTE-FASL-FILE-VERSION is constant-folded in +;;; OPEN-FASL-FILE. To make the new version number take effect, we +;;; have to redefine the function. +;;; +#-cmu20d +(defun open-fasl-file (name where &optional byte-p) + (declare (type pathname name)) + (let* ((stream (open name :direction :output + :if-exists :new-version + :element-type '(unsigned-byte 8) + :class 'binary-text-stream)) + (res (make-fasl-file :stream stream))) + (multiple-value-bind + (version f-vers f-imp) + (if byte-p + (values "Byte code" + byte-fasl-file-version + (backend-byte-fasl-file-implementation *backend*)) + (values (backend-version *backend*) + (backend-fasl-file-version *backend*) + (backend-fasl-file-implementation *backend*))) + (format stream + "FASL FILE output from ~A.~@ + Compiled ~A on ~A~@ + Compiler ~A, Lisp ~A~@ + Targeted for ~A, FASL version ~X~%" + where + (ext:format-universal-time nil (get-universal-time)) + (machine-instance) compiler-version + (lisp-implementation-version) + version f-vers) + ;; + ;; Terminate header. + (dump-byte 255 res) + ;; + ;; Specify code format. + (dump-fop 'lisp::fop-long-code-format res) + (dump-byte f-imp res) + (dump-unsigned-32 f-vers res)) + res)) + diff --git a/src/compiler/byte-comp.lisp b/src/compiler/byte-comp.lisp index ad16162..b89c70b 100644 --- a/src/compiler/byte-comp.lisp +++ b/src/compiler/byte-comp.lisp @@ -38,7 +38,7 @@ ;; 0-9 followed by a single hex digit in the range a-f. Then the ;; version looks like a decimal number followed by a minor release ;; letter of a to f. -(defconstant byte-fasl-file-version #x20c) +(defconstant byte-fasl-file-version #x20d) (let* ((version-string (format nil "~X" byte-fasl-file-version))) ;; Add :cmu<n> to *features* ----------------------------------------------------------------------- Summary of changes: bin/build-all.sh | 5 +- bin/load-world.sh | 11 +- .../{20b/boot-20c.lisp => 20c/boot-20d.lisp} | 14 +- src/code/unidata.lisp | 150 ++++++++++++-------- src/compiler/byte-comp.lisp | 2 +- 5 files changed, 108 insertions(+), 74 deletions(-) copy src/bootfiles/{20b/boot-20c.lisp => 20c/boot-20d.lisp} (89%) hooks/post-receive -- CMU Common Lisp

1 0

[cmucl-cvs] [git] CMU Common Lisp branch master updated. snapshot-2012-10-6-g02fc6d0
by Raymond Toy 17 Nov '12

17 Nov '12

This is an automated email from the git hooks/post-receive script. It was generated because a ref change was pushed to the repository containing the project "CMU Common Lisp". The branch, master has been updated via 02fc6d02d6973e4061729bf9308beca23baaff2a (commit) via aea837c3d4eca85769bd7f36354e3805562b77f6 (commit) via fb7d530d163e6c0e67c65778c393f312e51911cf (commit) from b68a4febd5e79735e2114d86dd88ffc4c3f018ed (commit) Those revisions listed above that are new to this repository have not appeared on any other notification email; so we list those revisions in full, below. - Log ----------------------------------------------------------------- commit 02fc6d02d6973e4061729bf9308beca23baaff2a Author: Raymond Toy <toy.raymond(a)gmail.com> Date: Sat Nov 17 14:37:12 2012 -0800 o Update to asdf 2.26 o Add release-20e.txt. diff --git a/src/contrib/asdf/asdf.lisp b/src/contrib/asdf/asdf.lisp index 13061c3..283ad86 100644 --- a/src/contrib/asdf/asdf.lisp +++ b/src/contrib/asdf/asdf.lisp @@ -1,5 +1,5 @@ ;;; -*- mode: Common-Lisp; Base: 10 ; Syntax: ANSI-Common-Lisp ; coding: utf-8 -*- -;;; This is ASDF 2.25: Another System Definition Facility. +;;; This is ASDF 2.26: Another System Definition Facility. ;;; ;;; Feedback, bug reports, and patches are all welcome: ;;; please mail to <asdf-devel(a)common-lisp.net>. @@ -118,7 +118,7 @@ ;; "2.345.6" would be a development version in the official upstream ;; "2.345.0.7" would be your seventh local modification of official release 2.345 ;; "2.345.6.7" would be your seventh local modification of development version 2.345.6 - (asdf-version "2.25") + (asdf-version "2.26") (existing-asdf (find-class 'component nil)) (existing-version *asdf-version*) (already-there (equal asdf-version existing-version))) @@ -230,7 +230,6 @@ :redefined-functions ',redefined-functions))) (pkgdcl :asdf - :nicknames (:asdf-utilities) ;; DEPRECATED! Do not use, for backward compatibility only. :use (:common-lisp) :redefined-functions (#:perform #:explain #:output-files #:operation-done-p @@ -3350,6 +3349,15 @@ located." (defun* getenv-absolute-directories (x) (getenv-pathnames x :want-absolute t :want-directory t)) +(defun* get-folder-path (folder) + (or ;; this semi-portably implements a subset of the functionality of lispworks' sys:get-folder-path + #+(and lispworks mswindows) (sys:get-folder-path folder) + ;; read-windows-registry HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\User Shell Folders\AppData + (ecase folder + (:local-appdata (getenv-absolute-directory "LOCALAPPDATA")) + (:appdata (getenv-absolute-directory "APPDATA")) + (:common-appdata (or (getenv-absolute-directory "ALLUSERSAPPDATA") + (subpathname* (getenv-absolute-directory "ALLUSERSPROFILE") "Application Data/")))))) (defun* user-configuration-directories () (let ((dirs @@ -3359,15 +3367,8 @@ located." (loop :for dir :in (getenv-absolute-directories "XDG_CONFIG_DIRS") :collect (subpathname* dir "common-lisp/")))) ,@(when (os-windows-p) - `(,(subpathname* (or #+(and lispworks (not lispworks-personal-edition)) - (sys:get-folder-path :local-appdata) - (getenv-absolute-directory "LOCALAPPDATA")) - "common-lisp/config/") - ;; read-windows-registry HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\User Shell Folders\AppData - ,(subpathname* (or #+(and lispworks (not lispworks-personal-edition)) - (sys:get-folder-path :appdata) - (getenv-absolute-directory "APPDATA")) - "common-lisp/config/"))) + `(,(subpathname* (get-folder-path :local-appdata) "common-lisp/config/") + ,(subpathname* (get-folder-path :appdata) "common-lisp/config/"))) ,(subpathname (user-homedir) ".config/common-lisp/")))) (remove-duplicates (remove-if-not #'absolute-pathname-p dirs) :from-end t :test 'equal))) @@ -3378,11 +3379,7 @@ located." ((os-windows-p) (aif ;; read-windows-registry HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\User Shell Folders\Common AppData - (subpathname* (or #+(and lispworks (not lispworks-personal-edition)) - (sys:get-folder-path :common-appdata) - (getenv-absolute-directory "ALLUSERSAPPDATA") - (subpathname* (getenv-absolute-directory "ALLUSERSPROFILE") "Application Data/")) - "common-lisp/config/") + (subpathname* (get-folder-path :common-appdata) "common-lisp/config/") (list it))))) (defun* in-first-directory (dirs x &key (direction :input)) @@ -3507,12 +3504,8 @@ and the order is by decreasing length of namestring of the source pathname.") (or (try (getenv-absolute-directory "XDG_CACHE_HOME") "common-lisp" :implementation) (when (os-windows-p) - (try (or #+(and lispworks (not lispworks-personal-edition)) - (sys:get-folder-path :local-appdata) - (getenv-absolute-directory "LOCALAPPDATA") - #+(and lispworks (not lispworks-personal-edition)) - (sys:get-folder-path :appdata) - (getenv-absolute-directory "APPDATA")) + (try (or (get-folder-path :local-appdata) + (get-folder-path :appdata)) "common-lisp" "cache" :implementation)) '(:home ".cache" "common-lisp" :implementation)))) @@ -3917,11 +3910,12 @@ effectively disabling the output translation facility." (if (absolute-pathname-p output-file) ;; what cfp should be doing, w/ mp* instead of mp (let* ((type (pathname-type (apply 'compile-file-pathname "x.lisp" keys))) - (defaults (make-pathname - :type type :defaults (merge-pathnames* input-file)))) - (merge-pathnames* output-file defaults)) + (defaults (make-pathname + :type type :defaults (merge-pathnames* input-file)))) + (merge-pathnames* output-file defaults)) (apply-output-translations - (apply 'compile-file-pathname input-file keys)))) + (apply 'compile-file-pathname input-file + (if output-file keys (remove-keyword :output-file keys)))))) (defun* tmpize-pathname (x) (make-pathname @@ -4234,6 +4228,7 @@ with a different configuration, so the configuration would be re-read then." (defun* wrapping-source-registry () `(:source-registry + #+ecl (:tree ,(translate-logical-pathname "SYS:")) #+mkcl (:tree ,(translate-logical-pathname "CONTRIB:")) #+sbcl (:tree ,(truenamize (getenv-pathname "SBCL_HOME" :want-directory t))) :inherit-configuration @@ -4250,16 +4245,7 @@ with a different configuration, so the configuration would be re-read then." ,@(or (getenv-absolute-directories "XDG_DATA_DIRS") '("/usr/local/share" "/usr/share")))) ,@(when (os-windows-p) - `(,(or #+(and lispworks (not lispworks-personal-edition)) - (sys:get-folder-path :local-appdata) - (getenv-absolute-directory "LOCALAPPDATA")) - ,(or #+(and lispworks (not lispworks-personal-edition)) - (sys:get-folder-path :appdata) - (getenv-absolute-directory "APPDATA")) - ,(or #+(and lispworks (not lispworks-personal-edition)) - (sys:get-folder-path :common-appdata) - (getenv-absolute-directory "ALLUSERSAPPDATA") - (subpathname* (getenv-absolute-directory "ALLUSERSPROFILE") "Application Data/"))))) + (mapcar 'get-folder-path '(:local-appdata :appdata :common-appdata)))) :collect `(:directory ,(subpathname* dir "common-lisp/systems/")) :collect `(:tree ,(subpathname* dir "common-lisp/source/"))) :inherit-configuration)) diff --git a/src/general-info/release-20e.txt b/src/general-info/release-20e.txt new file mode 100644 index 0000000..52eee31 --- /dev/null +++ b/src/general-info/release-20e.txt @@ -0,0 +1,48 @@ +========================== C M U C L 20 e ============================= + +[In Progress] + +The CMUCL project is pleased to announce the release of CMUCL 20e. +This is a major release which contains numerous enhancements and +bug fixes from the 20c release. + +CMUCL is a free, high performance implementation of the Common Lisp +programming language which runs on most major Unix platforms. It +mainly conforms to the ANSI Common Lisp standard. CMUCL provides a +sophisticated native code compiler; a powerful foreign function +interface; an implementation of CLOS, the Common Lisp Object System, +which includes multi-methods and a meta-object protocol; a source-level +debugger and code profiler; and an Emacs-like editor implemented in +Common Lisp. CMUCL is maintained by a team of volunteers collaborating +over the Internet, and is mostly in the public domain. + +New in this release: + + * Known issues: + + * Feature enhancements + + * Changes + * ASDF2 updated to version 2.26. + + * ANSI compliance fixes: + + * Bugfixes: + + * Trac Tickets: + + * Other changes: + + * Improvements to the PCL implementation of CLOS: + + * Changes to building procedure: + +This release is not binary compatible with code compiled using CMUCL +20d; you will need to recompile FASL files. + +See <URL:http://www.cmucl.org> or +<URL:http://trac.common-lisp.net/cmucl> for download information, +guidelines on reporting bugs, and mailing list details. + + +We hope you enjoy using this release of CMUCL! commit aea837c3d4eca85769bd7f36354e3805562b77f6 Merge: fb7d530 b68a4fe Author: Raymond Toy <toy.raymond(a)gmail.com> Date: Sun Oct 28 08:18:05 2012 -0700 Merge branch 'master' of ssh://common-lisp.net/var/git/projects/cmucl/cmucl commit fb7d530d163e6c0e67c65778c393f312e51911cf Author: Raymond Toy <toy.raymond(a)gmail.com> Date: Wed Oct 10 22:36:53 2012 -0700 Update asdf to version 2.25. diff --git a/src/contrib/asdf/asdf.lisp b/src/contrib/asdf/asdf.lisp index a97632d..13061c3 100644 --- a/src/contrib/asdf/asdf.lisp +++ b/src/contrib/asdf/asdf.lisp @@ -1,5 +1,5 @@ ;;; -*- mode: Common-Lisp; Base: 10 ; Syntax: ANSI-Common-Lisp ; coding: utf-8 -*- -;;; This is ASDF 2.24: Another System Definition Facility. +;;; This is ASDF 2.25: Another System Definition Facility. ;;; ;;; Feedback, bug reports, and patches are all welcome: ;;; please mail to <asdf-devel(a)common-lisp.net>. @@ -118,7 +118,7 @@ ;; "2.345.6" would be a development version in the official upstream ;; "2.345.0.7" would be your seventh local modification of official release 2.345 ;; "2.345.6.7" would be your seventh local modification of development version 2.345.6 - (asdf-version "2.24") + (asdf-version "2.25") (existing-asdf (find-class 'component nil)) (existing-version *asdf-version*) (already-there (equal asdf-version existing-version))) @@ -364,9 +364,10 @@ #:user-source-registry-directory #:system-source-registry-directory - ;; Utilities + ;; Utilities: please use asdf-utils instead + #| ;; #:aif #:it - #:appendf #:orf + ;; #:appendf #:orf #:length=n-p #:remove-keys #:remove-keyword #:first-char #:last-char #:string-suffix-p @@ -389,7 +390,7 @@ #:while-collecting #:*wild* #:*wild-file* #:*wild-directory* #:*wild-inferiors* #:*wild-path* #:wilden - #:directorize-pathname-host-device + #:directorize-pathname-host-device|# ))) #+genera (import 'scl:boolean :asdf) (setf *asdf-version* asdf-version @@ -462,6 +463,7 @@ or ASDF:LOAD-SOURCE-OP if your fasl loading is somehow broken.") (progn (deftype logical-pathname () nil) (defun make-broadcast-stream () *error-output*) + (defun translate-logical-pathname (x) x) (defun file-namestring (p) (setf p (pathname p)) (format nil "~@[~A~]~@[.~A~]" (pathname-name p) (pathname-type p)))) @@ -3321,8 +3323,9 @@ located." (defun* user-homedir () (truenamize (pathname-directory-pathname + #+cormanlisp (ensure-directory-pathname (user-homedir-pathname)) #+mcl (current-user-homedir-pathname) - #-mcl (user-homedir-pathname)))) + #-(or cormanlisp mcl) (user-homedir-pathname)))) (defun* ensure-pathname* (x want-absolute want-directory fmt &rest args) (when (plusp (length x)) @@ -3356,11 +3359,13 @@ located." (loop :for dir :in (getenv-absolute-directories "XDG_CONFIG_DIRS") :collect (subpathname* dir "common-lisp/")))) ,@(when (os-windows-p) - `(,(subpathname* (or #+lispworks (sys:get-folder-path :local-appdata) + `(,(subpathname* (or #+(and lispworks (not lispworks-personal-edition)) + (sys:get-folder-path :local-appdata) (getenv-absolute-directory "LOCALAPPDATA")) "common-lisp/config/") ;; read-windows-registry HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\User Shell Folders\AppData - ,(subpathname* (or #+lispworks (sys:get-folder-path :appdata) + ,(subpathname* (or #+(and lispworks (not lispworks-personal-edition)) + (sys:get-folder-path :appdata) (getenv-absolute-directory "APPDATA")) "common-lisp/config/"))) ,(subpathname (user-homedir) ".config/common-lisp/")))) @@ -3373,7 +3378,8 @@ located." ((os-windows-p) (aif ;; read-windows-registry HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\User Shell Folders\Common AppData - (subpathname* (or #+lispworks (sys:get-folder-path :common-appdata) + (subpathname* (or #+(and lispworks (not lispworks-personal-edition)) + (sys:get-folder-path :common-appdata) (getenv-absolute-directory "ALLUSERSAPPDATA") (subpathname* (getenv-absolute-directory "ALLUSERSPROFILE") "Application Data/")) "common-lisp/config/") @@ -3501,9 +3507,11 @@ and the order is by decreasing length of namestring of the source pathname.") (or (try (getenv-absolute-directory "XDG_CACHE_HOME") "common-lisp" :implementation) (when (os-windows-p) - (try (or #+lispworks (sys:get-folder-path :local-appdata) + (try (or #+(and lispworks (not lispworks-personal-edition)) + (sys:get-folder-path :local-appdata) (getenv-absolute-directory "LOCALAPPDATA") - #+lispworks (sys:get-folder-path :appdata) + #+(and lispworks (not lispworks-personal-edition)) + (sys:get-folder-path :appdata) (getenv-absolute-directory "APPDATA")) "common-lisp" "cache" :implementation)) '(:home ".cache" "common-lisp" :implementation)))) @@ -4242,11 +4250,14 @@ with a different configuration, so the configuration would be re-read then." ,@(or (getenv-absolute-directories "XDG_DATA_DIRS") '("/usr/local/share" "/usr/share")))) ,@(when (os-windows-p) - `(,(or #+lispworks (sys:get-folder-path :local-appdata) + `(,(or #+(and lispworks (not lispworks-personal-edition)) + (sys:get-folder-path :local-appdata) (getenv-absolute-directory "LOCALAPPDATA")) - ,(or #+lispworks (sys:get-folder-path :appdata) + ,(or #+(and lispworks (not lispworks-personal-edition)) + (sys:get-folder-path :appdata) (getenv-absolute-directory "APPDATA")) - ,(or #+lispworks (sys:get-folder-path :common-appdata) + ,(or #+(and lispworks (not lispworks-personal-edition)) + (sys:get-folder-path :common-appdata) (getenv-absolute-directory "ALLUSERSAPPDATA") (subpathname* (getenv-absolute-directory "ALLUSERSPROFILE") "Application Data/"))))) :collect `(:directory ,(subpathname* dir "common-lisp/systems/")) diff --git a/src/general-info/release-20d.txt b/src/general-info/release-20d.txt index a17c0da..829085c 100644 --- a/src/general-info/release-20d.txt +++ b/src/general-info/release-20d.txt @@ -30,7 +30,7 @@ New in this release: * Added external format for EUC-KR. * Changes - * ASDF2 updated to version 2.24. + * ASDF2 updated to version 2.25. * Behavior of STRING-TO-OCTETS has changed. This is an incompatible change from the previous version but should be more useful when a buffer is given which is not large enough to hold ----------------------------------------------------------------------- Summary of changes: src/contrib/asdf/asdf.lisp | 63 ++++++++++++++++++-------------------- src/general-info/release-20d.txt | 2 +- src/general-info/release-20e.txt | 48 +++++++++++++++++++++++++++++ 3 files changed, 79 insertions(+), 34 deletions(-) create mode 100644 src/general-info/release-20e.txt hooks/post-receive -- CMU Common Lisp

1 0