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

[cmucl-cvs] [git] CMU Common Lisp branch master updated. snapshot-2013-01-23-gbfd32d9
by Raymond Toy 02 Feb '13

02 Feb '13

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 bfd32d97e2f5d19dbb40f1e180a471e7a3e10d2a (commit) via 0a2db10cdf6cb3b339ea103a6b8d02a0764b8e2e (commit) from 237b7a2e6b6c129db4a185d76760fa2ef0825324 (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 bfd32d97e2f5d19dbb40f1e180a471e7a3e10d2a Author: Raymond Toy <toy.raymond(a)gmail.com> Date: Fri Feb 1 19:21:24 2013 -0800 Regenerated. diff --git a/src/i18n/locale/cmucl.pot b/src/i18n/locale/cmucl.pot index de06c81..11ba637 100644 --- a/src/i18n/locale/cmucl.pot +++ b/src/i18n/locale/cmucl.pot @@ -4787,7 +4787,7 @@ msgid "" msgstr "" #: src/code/float-trap.lisp -msgid "SIGFPE with no exceptions currently enabled?" +msgid "SIGFPE with no exceptions currently enabled? (si-code = ~D)" msgstr "" #: src/code/float-trap.lisp commit 0a2db10cdf6cb3b339ea103a6b8d02a0764b8e2e Author: Raymond Toy <toy.raymond(a)gmail.com> Date: Fri Feb 1 19:20:41 2013 -0800 Update from commit logs. diff --git a/src/general-info/release-20e.txt b/src/general-info/release-20e.txt index cf4fd5e..0a874a9 100644 --- a/src/general-info/release-20e.txt +++ b/src/general-info/release-20e.txt @@ -24,8 +24,8 @@ New in this release: * Changes * ASDF2 updated to version 2.26. - * DEFINE-COMPILER-MACRO now has source-locationinformation for the - macro definition. + * DEFINE-COMPILER-MACRO now has source-location information for + the macro definition. * :ALIEN-CALLBACK added to *FEATURES* for platforms that support alien callbacks. * The sparc port can be built using gcc once again. @@ -48,6 +48,8 @@ New in this release: * Ticket #69 fixed. * Ticket #70 fixed. * Ticket #65 fixed. + * Ticket #71 fixed. + * Ticket #72 fixed. * Other changes: * -8 option for build-all.sh is deprecated since we don't ----------------------------------------------------------------------- Summary of changes: src/general-info/release-20e.txt | 6 ++++-- src/i18n/locale/cmucl.pot | 2 +- 2 files changed, 5 insertions(+), 3 deletions(-) hooks/post-receive -- CMU Common Lisp

1 0

[cmucl-cvs] [git] CMU Common Lisp branch master updated. snapshot-2013-01-21-g237b7a2
by Raymond Toy 02 Feb '13

02 Feb '13

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 237b7a2e6b6c129db4a185d76760fa2ef0825324 (commit) from 0174bfebdb2ed8edbdf5b3dade4fd64965d4a9f4 (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 237b7a2e6b6c129db4a185d76760fa2ef0825324 Author: Raymond Toy <toy.raymond(a)gmail.com> Date: Fri Feb 1 19:10:52 2013 -0800 Fix typo in string. diff --git a/src/code/float-trap.lisp b/src/code/float-trap.lisp index d7bab6f..0995883 100644 --- a/src/code/float-trap.lisp +++ b/src/code/float-trap.lisp @@ -331,7 +331,7 @@ (error 'arithmetic-error :operation fop :operands operands) - (error _"SIGFPE with no exceptions currently enabled? (si-code = ~D" + (error _"SIGFPE with no exceptions currently enabled? (si-code = ~D)" code))))))) ;;; WITH-FLOAT-TRAPS-MASKED -- Public ----------------------------------------------------------------------- Summary of changes: src/code/float-trap.lisp | 2 +- 1 files changed, 1 insertions(+), 1 deletions(-) hooks/post-receive -- CMU Common Lisp

1 0

[cmucl-cvs] [git] CMU Common Lisp branch master updated. snapshot-2013-01-20-g0174bfe
by Raymond Toy 01 Feb '13

01 Feb '13

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 0174bfebdb2ed8edbdf5b3dade4fd64965d4a9f4 (commit) from 719e87b7d103d3201c031412de576653a42daff7 (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 0174bfebdb2ed8edbdf5b3dade4fd64965d4a9f4 Author: Raymond Toy <toy.raymond(a)gmail.com> Date: Thu Jan 31 21:27:36 2013 -0800 Fix ticket:72 : SIGFPE with no exceptions enabled code/float-trap.lisp:: * In the default case, check FOP to see if it's defined. This means it's a divide exception. code/x86-vm.lisp:: * Also check to see if the offending instruction is a DIV or IDIV, which means we got an integer overflow. Return the appropriate values in this case. diff --git a/src/code/float-trap.lisp b/src/code/float-trap.lisp index 6616146..d7bab6f 100644 --- a/src/code/float-trap.lisp +++ b/src/code/float-trap.lisp @@ -239,7 +239,7 @@ ;;; Signal the appropriate condition when we get a floating-point error. ;;; (defun sigfpe-handler (signal code scp) - (declare (ignore signal code) + (declare (ignore signal) (type system-area-pointer scp)) (let* ((modes (sigcontext-floating-point-modes (alien:sap-alien scp (* unix:sigcontext)))) @@ -313,9 +313,26 @@ ;; operands also seem to be missing. Signal a general ;; arithmetic error. #+(and x86 solaris) - (error 'arithmetic-error :operands operands) + (error _"SIGFPE with no exceptions currently enabled? (si-code = ~D)" + code) + ;; For all other x86 ports, we should only get here if + ;; the SIGFPE was caused by an integer overflow on + ;; division. For sparc and ppc, I (rtoy) don't think + ;; there's any other way to get here since integer + ;; overflows aren't signaled. + ;; + ;; In that case, FOP should be /, so we can generate a + ;; nice arithmetic-error. It's possible to use CODE, + ;; which is supposed to indicate what caused the + ;; exception, but each OS is different, so we don't; FOP + ;; can tell us. #-(and x86 solaris) - (error _"SIGFPE with no exceptions currently enabled?")))))) + (if fop + (error 'arithmetic-error + :operation fop + :operands operands) + (error _"SIGFPE with no exceptions currently enabled? (si-code = ~D" + code))))))) ;;; WITH-FLOAT-TRAPS-MASKED -- Public ;;; diff --git a/src/code/x86-vm.lisp b/src/code/x86-vm.lisp index 19211ed..961dacb 100644 --- a/src/code/x86-vm.lisp +++ b/src/code/x86-vm.lisp @@ -539,9 +539,11 @@ (defun get-fp-operation (scp) (declare (type (alien (* sigcontext)) scp)) - ;; Get the offending FP instruction from the context. We return the - ;; operation associated with the FP instruction, the precision of - ;; the operation, and the operands of the instruction. + ;; Get the instruction that caused the SIGFPE from the context. The + ;; SIGFPE can be caused by either a floating-point operation or an + ;; integer division (overflow). We return the operation associated + ;; with the instruction, and the the operands of the instruction, if + ;; possible. ;; For SSE2, the PC should be at the offending SSE2 instruction (let ((pc (sigcontext-program-counter scp))) @@ -580,9 +582,10 @@ (when (= mod #b11) (sigcontext-float-register scp (+ 8 r/m) format)))))) ;; Look at the instruction and see if it's one of the arithmetic - ;; SSE2 instructions. If so, figure out the operation and try - ;; to get the operands. Currently, if an operand is in memory, - ;; we don't try to fetch it. + ;; SSE2 instructions or an integer division instruction. If so, + ;; figure out the operation and try to get the operands. + ;; Currently, if an operand is in memory, we don't try to fetch + ;; it. ;; ;; Also, for the packed operations that hold complex numbers, ;; it's not exactly clear what to do. The main issue is that @@ -644,8 +647,38 @@ (when src (list (realpart src) (imagpart src)))))) + ((or (= (sys:sap-ref-8 pc 0) #xf7)) + ;; DIV or IDIV. We don't support 8-bit division + (multiple-value-bind (mod r/m v) + (decode-mod-r/m (sys:sap-ref-8 pc 1)) + #+(or) + (format t "DIV: #X~X: mod, r/m v = ~X ~X ~X~%" + (sys:sap-ref-8 pc 0) + mod r/m v) + ;; r/m tells us the divisor reg + (flet ((maybe-adjust-sign (x 64bit-p) + ;; Maybe convert unsigned integer X to a + ;; signed integer. 64BIT-P is set if X is + ;; supposed to be a 64-bit integer. + (if (= v 7) + (- x (if 64bit-p + #x10000000000000000 + #x100000000)) + x))) + ;; For the div instructions, the dividend is always + ;; in EDX:EAX + (let ((dividend (maybe-adjust-sign + (+ (ash (sigcontext-register scp 4) 32) + (sigcontext-register scp 0)) + t)) + (divisor (maybe-adjust-sign + (sigcontext-register scp (ash r/m 1)) + nil))) + (values '/ + dividend + divisor))))) (t - (values nil nil nil nil)))))) + (values nil nil nil)))))) (defun get-fp-operands (scp modes) (declare (type (alien (* sigcontext)) scp) ----------------------------------------------------------------------- Summary of changes: src/code/float-trap.lisp | 23 +++++++++++++++++++-- src/code/x86-vm.lisp | 47 +++++++++++++++++++++++++++++++++++++++------ 2 files changed, 60 insertions(+), 10 deletions(-) hooks/post-receive -- CMU Common Lisp

1 0

[cmucl-cvs] [git] CMU Common Lisp branch master updated. snapshot-2013-01-19-g719e87b
by Raymond Toy 25 Jan '13

25 Jan '13

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 719e87b7d103d3201c031412de576653a42daff7 (commit) from b2ee65dabba1742203e28f538eeee59da126093c (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 719e87b7d103d3201c031412de576653a42daff7 Author: Raymond Toy <toy.raymond(a)gmail.com> Date: Thu Jan 24 20:55:45 2013 -0800 Fix ticket:65 some more. Apply the expt transform in more places. The test script in the ticket now passes. diff --git a/src/code/irrat.lisp b/src/code/irrat.lisp index f04b154..67ca060 100644 --- a/src/code/irrat.lisp +++ b/src/code/irrat.lisp @@ -517,24 +517,30 @@ (intexp base power)) (((foreach single-float double-float) rational) - (real-expt base power '(dispatch-type base))) + (or (expt-xfrm base power) + (real-expt base power '(dispatch-type base)))) (((foreach fixnum (or bignum ratio) single-float) (foreach ratio single-float)) - (real-expt base power 'single-float)) + (or (expt-xfrm (coerce base 'single-float) power) + (real-expt base power 'single-float))) (((foreach fixnum (or bignum ratio) single-float double-float) double-float) - (real-expt base power 'double-float)) + (or (expt-xfrm (coerce base 'double-float) power) + (real-expt base power 'double-float))) ((double-float single-float) - (real-expt base power 'double-float)) + (or (expt-xfrm (coerce base 'double-float) power) + (real-expt base power 'double-float))) #+double-double (((foreach fixnum (or bignum ratio) single-float double-float double-double-float) double-double-float) - (dd-%pow (coerce base 'double-double-float) power)) + (or (expt-xfrm (coerce base 'double-double-float) power) + (dd-%pow (coerce base 'double-double-float) power))) #+double-double ((double-double-float (foreach fixnum (or bignum ratio) single-float double-float)) - (dd-%pow base (coerce power 'double-double-float))) + (or (expt-xfrm base power) + (dd-%pow base (coerce power 'double-double-float)))) (((foreach (complex rational) (complex single-float) (complex double-float) #+double-double (complex double-double-float)) rational) ----------------------------------------------------------------------- Summary of changes: src/code/irrat.lisp | 18 ++++++++++++------ 1 files changed, 12 insertions(+), 6 deletions(-) hooks/post-receive -- CMU Common Lisp

1 0

[cmucl-cvs] [git] CMU Common Lisp branch master updated. snapshot-2013-01-18-gb2ee65d
by Raymond Toy 25 Jan '13

25 Jan '13

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 b2ee65dabba1742203e28f538eeee59da126093c (commit) from a05bb7128ec7c2eff10c8a940fb897b4270a40fa (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 b2ee65dabba1742203e28f538eeee59da126093c Author: Raymond Toy <toy.raymond(a)gmail.com> Date: Thu Jan 24 20:28:09 2013 -0800 Fix ticket:71 The reader conditionals in {{{NOT-MORE-CONTAGIOUS}}} were incorrrectly handling the case when the second type was a double-float. It was always returning T in that case, but this is wrong if the first type is a double-double-float. diff --git a/src/compiler/srctran.lisp b/src/compiler/srctran.lisp index d2f0c3b..4b6f0ff 100644 --- a/src/compiler/srctran.lisp +++ b/src/compiler/srctran.lisp @@ -3189,9 +3189,9 @@ (ecase format2 ((nil short-float single-float) (member format1 '(short-float single-float))) - #-long-float + #-double-double ((double-float long-float) 'T) - #+(or long-float double-double) + #+double-double (double-float (member format1 '(short-float single-float double-float))) ----------------------------------------------------------------------- Summary of changes: src/compiler/srctran.lisp | 4 ++-- 1 files changed, 2 insertions(+), 2 deletions(-) hooks/post-receive -- CMU Common Lisp

1 0

[cmucl-cvs] [git] CMU Common Lisp branch master updated. snapshot-2013-01-17-ga05bb71
by Raymond Toy 24 Jan '13

24 Jan '13

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 a05bb7128ec7c2eff10c8a940fb897b4270a40fa (commit) from 93656b6aa0ef4e939a84dfb62a6f088f58d3ff62 (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 a05bb7128ec7c2eff10c8a940fb897b4270a40fa Author: Raymond Toy <toy.raymond(a)gmail.com> Date: Wed Jan 23 21:25:07 2013 -0800 Update from commit logs. diff --git a/src/general-info/release-20e.txt b/src/general-info/release-20e.txt index 12d7e02..cf4fd5e 100644 --- a/src/general-info/release-20e.txt +++ b/src/general-info/release-20e.txt @@ -46,6 +46,8 @@ New in this release: * Ticket #67 fixed. * Ticket #68 fixed. * Ticket #69 fixed. + * Ticket #70 fixed. + * Ticket #65 fixed. * Other changes: * -8 option for build-all.sh is deprecated since we don't ----------------------------------------------------------------------- Summary of changes: src/general-info/release-20e.txt | 2 ++ 1 files changed, 2 insertions(+), 0 deletions(-) hooks/post-receive -- CMU Common Lisp

1 0

[cmucl-cvs] [git] CMU Common Lisp branch master updated. snapshot-2013-01-16-g93656b6
by Raymond Toy 24 Jan '13

24 Jan '13

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 93656b6aa0ef4e939a84dfb62a6f088f58d3ff62 (commit) from ab191d0f0c6c3744688042d14f754c3e35a4a793 (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 93656b6aa0ef4e939a84dfb62a6f088f58d3ff62 Author: Raymond Toy <toy.raymond(a)gmail.com> Date: Wed Jan 23 21:22:24 2013 -0800 Fix ticket:65. Implement the deftransform in the expt function. diff --git a/src/code/irrat.lisp b/src/code/irrat.lisp index e295fe2..f04b154 100644 --- a/src/code/irrat.lisp +++ b/src/code/irrat.lisp @@ -488,7 +488,22 @@ (declare (double-float y*pi)) (complex (coerce (* pow (%cos y*pi)) rtype) - (coerce (* pow (%sin y*pi)) rtype))))))))))))) + (coerce (* pow (%sin y*pi)) rtype)))))))))))) + (expt-xfrm (b p) + ;; Apply the same transformation as in the deftransform + ;; for expt in compiler/srctran.lisp. Only call this + ;; if B is more contagious than P. Otherwise, the type + ;; of the result will be wrong which will confuse the + ;; compiler! Return NIL if the transform can't be + ;; applied. + (cond + ((= p 2) (* b b)) + ((= p -2) (/ (* b b))) + ((= p 3) (* b b b)) + ((= p -3) (/ (* b b b))) + ((= p 1/2) (sqrt b)) + ((= p -1/2) (/ (sqrt b))) + (t nil)))) ;; This is really messy and should be cleaned up. The easiest ;; way to see if we're doing what we should is the macroexpand ;; the number-dispatch and check each branch. @@ -523,8 +538,9 @@ (((foreach (complex rational) (complex single-float) (complex double-float) #+double-double (complex double-double-float)) rational) - (* (expt (abs base) power) - (cis (* power (phase base))))) + (or (expt-xfrm base power) + (* (expt (abs base) power) + (cis (* power (phase base)))))) #+double-double ((double-double-float complex) @@ -560,36 +576,45 @@ (foreach single-float (complex single-float))) (if (and (zerop base) (plusp (realpart power))) (* base power) - (exp (* power (log base))))) + (or (expt-xfrm (coerce base '(complex single-float)) power) + (exp (* power (log base)))))) (((foreach (complex rational) (complex single-float)) (foreach double-float (complex double-float))) (if (and (zerop base) (plusp (realpart power))) (* base power) - (exp (* power (log (coerce base '(complex double-float))))))) + (or (expt-xfrm (coerce base '(complex double-float)) + power) + (exp (* power (log (coerce base '(complex double-float)))))))) #+double-double (((foreach (complex rational) (complex single-float)) (foreach double-double-float (complex double-double-float))) (if (and (zerop base) (plusp (realpart power))) (* base power) - (exp (* power (log (coerce base '(complex double-double-float))))))) + (or (expt-xfrm (coerce base '(complex double-double-float)) + power) + (exp (* power (log (coerce base '(complex double-double-float)))))))) (((foreach (complex double-float)) - (foreach single-float double-float (complex single-float) - (complex double-float))) + (foreach single-float double-float + (complex single-float) (complex double-float))) (if (and (zerop base) (plusp (realpart power))) (* base power) - (exp (* power (log base))))) + (or (expt-xfrm base power) + (exp (* power (log base)))))) #+double-double (((foreach (complex double-float)) (foreach double-double-float (complex double-double-float))) (if (and (zerop base) (plusp (realpart power))) (* base power) - (exp (* power (log (coerce base '(complex double-double-float))))))) + (or (expt-xfrm (coerce base '(complex double-double-float)) + power) + (exp (* power (log (coerce base '(complex double-double-float)))))))) #+double-double (((foreach (complex double-double-float)) (foreach float (complex float))) (if (and (zerop base) (plusp (realpart power))) (* base power) - (exp (* power (log base))))))))) + (or (expt-xfrm base power) + (exp (* power (log base)))))))))) ;; Log base 2 of a real number. The result is a either a double-float ;; or double-double-float number (real or complex, as appropriate), ----------------------------------------------------------------------- Summary of changes: src/code/irrat.lisp | 47 ++++++++++++++++++++++++++++++++++++----------- 1 files changed, 36 insertions(+), 11 deletions(-) hooks/post-receive -- CMU Common Lisp

1 0

[cmucl-cvs] [git] CMU Common Lisp branch master updated. snapshot-2013-01-15-gab191d0
by Raymond Toy 24 Jan '13

24 Jan '13

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 ab191d0f0c6c3744688042d14f754c3e35a4a793 (commit) from b0ccde2c145b43466d9a34421f4f4fe2907a02c9 (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 ab191d0f0c6c3744688042d14f754c3e35a4a793 Author: Raymond Toy <toy.raymond(a)gmail.com> Date: Wed Jan 23 20:20:18 2013 -0800 Fix ticket:70 by binding *d-p-d* to #p"". This allows logical pathnames (which always have a host to parse against) and search-lists (which don't have an explicit pathname to parse against) to be parsed correctly. See the comment for some possible issues. diff --git a/src/code/debug.lisp b/src/code/debug.lisp index 113ddf0..616b704 100644 --- a/src/code/debug.lisp +++ b/src/code/debug.lisp @@ -1477,7 +1477,16 @@ See the CMU Common Lisp User's Manual for more information. (aref (or (di:debug-source-start-positions d-source) (error (intl:gettext "No start positions map."))) local-tlf-offset)) - (name (di:debug-source-name d-source))) + (name (di:debug-source-name d-source)) + ;; See ticket:70. Bind *d-p-d* to a unix host so we can + ;; parse logical pathnames and search-lists that might be + ;; stored in the source name. There is an issue if the name + ;; is a logical pathname and the host isn't defined. This + ;; will be interpreted as a search-list (undefined), but we + ;; won't error out. This will be a problem if we try to + ;; define the logical host with the same name later. + (*default-pathname-defaults* + (make-pathname :host lisp::*unix-host*))) (unless (eq d-source *cached-debug-source*) (unless (and *cached-source-stream* (equal (pathname *cached-source-stream*) ----------------------------------------------------------------------- Summary of changes: src/code/debug.lisp | 11 ++++++++++- 1 files changed, 10 insertions(+), 1 deletions(-) hooks/post-receive -- CMU Common Lisp

1 0

[cmucl-cvs] [git] CMU Common Lisp branch master updated. snapshot-2013-01-14-gb0ccde2
by Raymond Toy 23 Jan '13

23 Jan '13

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 b0ccde2c145b43466d9a34421f4f4fe2907a02c9 (commit) from 962b9c7de2f2019ee10aff49f28c6d2063d4f401 (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 b0ccde2c145b43466d9a34421f4f4fe2907a02c9 Author: Raymond Toy <toy.raymond(a)gmail.com> Date: Tue Jan 22 20:43:03 2013 -0800 Forgot to update this when alien-callback.lisp was added. diff --git a/src/i18n/locale/cmucl.pot b/src/i18n/locale/cmucl.pot index 07711d1..de06c81 100644 --- a/src/i18n/locale/cmucl.pot +++ b/src/i18n/locale/cmucl.pot @@ -2004,6 +2004,62 @@ msgstr "" msgid "Can't use :out or :in-out on pointer-like type:~% ~S" msgstr "" +#: src/code/alien-callback.lisp +msgid "Vector of all callbacks." +msgstr "" + +#: src/compiler/tn.lisp src/compiler/main.lisp src/code/describe.lisp +#: src/code/debug-int.lisp src/code/debug-info.lisp +#: src/code/foreign-linkage.lisp src/code/reader.lisp src/code/stream.lisp +#: src/code/hash-new.lisp src/code/array.lisp src/code/alien-callback.lisp +msgid "~S is not an array with a fill-pointer." +msgstr "" + +#: src/code/alien-callback.lisp +msgid "Unable to mprotect ~S bytes (~S) at ~S (~S). Callbacks may not work." +msgstr "" + +#: src/code/alien-callback.lisp +msgid "Return the trampoline pointer for the callback NAME." +msgstr "" + +#: src/code/alien-callback.lisp +msgid "" +"~\n" +"Attempt to redefine callback with incompatible return type.\n" +" Old type was: ~A \n" +" New type is: ~A" +msgstr "" + +#: src/code/alien-callback.lisp +msgid "~\n" +"Create new trampoline (old trampoline calls old lisp function)." +msgstr "" + +#: src/code/alien-callback.lisp +msgid "Unsupported argument type: ~A" +msgstr "" + +#: src/code/alien-callback.lisp +msgid "Unsupported return type: ~A" +msgstr "" + +#: src/code/alien-callback.lisp +msgid "" +"(defcallback NAME (RETURN-TYPE {(ARG-NAME ARG-TYPE)}*)\n" +" {doc-string} {decls}* {FORM}*)\n" +"\n" +"Define a function which can be called by foreign code. The pointer\n" +"returned by (callback NAME), when called by foreign code, invokes the\n" +"lisp function. The lisp function expects alien arguments of the\n" +"specified ARG-TYPEs and returns an alien of type RETURN-TYPE.\n" +"\n" +"If (callback NAME) is already a callback function pointer, its value\n" +"is not changed (though it's arranged that an updated version of the\n" +"lisp callback function will be called). This feature allows for\n" +"incremental redefinition of callback functions." +msgstr "" + #: src/code/sap.lisp msgid "Return T iff the SAP X points to a smaller address then the SAP Y." msgstr "" @@ -2445,13 +2501,6 @@ msgstr "" msgid "Returns the Fill-Pointer of the given Vector." msgstr "" -#: src/compiler/tn.lisp src/compiler/main.lisp src/code/describe.lisp -#: src/code/debug-int.lisp src/code/debug-info.lisp -#: src/code/foreign-linkage.lisp src/code/reader.lisp src/code/stream.lisp -#: src/code/hash-new.lisp src/code/array.lisp -msgid "~S is not an array with a fill-pointer." -msgstr "" - #: src/code/array.lisp msgid "New fill pointer, ~S, is larger than the length of the vector." msgstr "" ----------------------------------------------------------------------- Summary of changes: src/i18n/locale/cmucl.pot | 63 ++++++++++++++++++++++++++++++++++++++++----- 1 files changed, 56 insertions(+), 7 deletions(-) hooks/post-receive -- CMU Common Lisp

1 0

[cmucl-cvs] [git] CMU Common Lisp branch master updated. snapshot-2013-01-13-g962b9c7
by Raymond Toy 23 Jan '13

23 Jan '13

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 962b9c7de2f2019ee10aff49f28c6d2063d4f401 (commit) from 6354120928e97ca271298bdd8e32083718b94d7e (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 962b9c7de2f2019ee10aff49f28c6d2063d4f401 Author: Raymond Toy <toy.raymond(a)gmail.com> Date: Tue Jan 22 20:41:56 2013 -0800 Fix up the file names in the file-comment. diff --git a/src/code/alien-callback.lisp b/src/code/alien-callback.lisp index b6e73be..d5e1395 100644 --- a/src/code/alien-callback.lisp +++ b/src/code/alien-callback.lisp @@ -5,7 +5,7 @@ ;;; Carnegie Mellon University, and has been placed in the public domain. ;;; (ext:file-comment - "$Header: src/code/alieneval.lisp $") + "$Header: src/code/alien-callback.lisp $") ;;; ;;; ********************************************************************** ;;; diff --git a/src/compiler/ppc/c-callback.lisp b/src/compiler/ppc/c-callback.lisp index 2ebd6f4..928de09 100644 --- a/src/compiler/ppc/c-callback.lisp +++ b/src/compiler/ppc/c-callback.lisp @@ -7,7 +7,7 @@ ;;; Scott Fahlman or slisp-group(a)cs.cmu.edu. ;;; (ext:file-comment - "$Header: src/compiler/ppc/c-call.lisp $") + "$Header: src/compiler/ppc/c-callback.lisp $") ;;; ;;; ********************************************************************** ;;; diff --git a/src/compiler/sparc/c-callback.lisp b/src/compiler/sparc/c-callback.lisp index ac97f9c..24bd7af 100644 --- a/src/compiler/sparc/c-callback.lisp +++ b/src/compiler/sparc/c-callback.lisp @@ -5,7 +5,7 @@ ;;; Carnegie Mellon University, and has been placed in the public domain. ;;; (ext:file-comment - "$Header: src/compiler/sparc/c-call.lisp $") + "$Header: src/compiler/sparc/c-callback.lisp $") (in-package "SPARC") (intl:textdomain "cmucl-sparc-vm") diff --git a/src/compiler/x86/c-callback.lisp b/src/compiler/x86/c-callback.lisp index b9e27fc..cccc874 100644 --- a/src/compiler/x86/c-callback.lisp +++ b/src/compiler/x86/c-callback.lisp @@ -7,7 +7,7 @@ ;;; Scott Fahlman or slisp-group(a)cs.cmu.edu. ;;; (ext:file-comment - "$Header: src/compiler/x86/c-call.lisp $") + "$Header: src/compiler/x86/c-callback.lisp $") (in-package :x86) (use-package :alien) ----------------------------------------------------------------------- Summary of changes: src/code/alien-callback.lisp | 2 +- src/compiler/ppc/c-callback.lisp | 2 +- src/compiler/sparc/c-callback.lisp | 2 +- src/compiler/x86/c-callback.lisp | 2 +- 4 files changed, 4 insertions(+), 4 deletions(-) hooks/post-receive -- CMU Common Lisp

1 0