Hi
The following simplified code snipped works fine when ran interpreted
in LispWorks 5.1.2 Pro, but fails when the code is compiled. Compiled
code only fails when expanding to a multiple-value-call special
operator. It works fine in SBCL and CCL, but I am a LispWorks user :-)
Please help.
Regards.
Nico
(defpackage #:scratch
(:use :cl #:cl-cont))
(in-package #:scratch)
(defparameter *k* nil)
(defun/cc test2 ()
(multiple-value-bind (x) 10
(let/cc k
(setf *k* k)
x)))
;; Interpreted:
SCRATCH 119 > (with-call/cc (test2))
10
;; Compiled:
SCRATCH 120 > (with-call/cc (test2))
Error: Undefined function called with arguments (#<funcallable
200A773A> 10).
1 (continue) Return some values from the call.
2 Try invoking a different function with the same arguments.
3 (abort) Return to level 0.
4 Return to top loop level 0.
Type :b for backtrace, :c <option number> to proceed, or :? for other
options
SCRATCH 121 : 1 > :b
Call to CL-CONT::FUNCALL/CC
Call to FUNCALL
Call to EVAL
Call to CAPI::CAPI-TOP-LEVEL-FUNCTION
Call to CAPI::INTERACTIVE-PANE-TOP-LOOP
Call to (HARLEQUIN-COMMON-LISP:SUBFUNCTION MP::PROCESS-SG-FUNCTION
MP::INITIALIZE-PROCESS-STACK)
--~--~---------~--~----~------------~-------~--~----~
You received this message because you are subscribed to the Google Groups
"weblocks" group.
To post to this group, send email to [email protected]
To unsubscribe from this group, send email to
[email protected]
For more options, visit this group at
http://groups.google.com/group/weblocks?hl=en
-~----------~----~----~----~------~----~------~--~---
