Custom Query (1030 matches)

(macrolet ((tag ()

1))

(eval-when (:compile-toplevel :load-toplevel :execute)

(assert (= 1 (tag)))))

Undefined function TAG called with arguments () .

[Condition of type CCL::UNDEFINED-FUNCTION-CALL]

(lisp-implementation-version) "Version 1.4-dev-r12681M-trunk (LinuxX8664)"

Clozure CL's documentation mentions a very useful option to trace, :inside

:inside outside-spec | ({outside-spec}*)

Inhibits all trace actions unless the current invocation of the function being traced is inside one of the outside-spec's, i.e. unless a function named by one of the outside-spec's is currently on the stack. outside-spec can name a function, a method, or a package, as above.

However, it doesn't work, neither in trunk nor in 1.8, tried on linuxx86 and darwinx86.

Welcome to Clozure Common Lisp Version 1.9-dev-r15573M-trunk  (DarwinX8632)!
? (defun a ())
A
? (defun b () (a))
B
? (trace :inside b a)
NIL
? (b)
> Error: Too many arguments in call to #<Compiled-function (:INTERNAL CCL::TRACE-INSIDE-FRAME-P) (Non-Global)  #x49B1DDE>:
>        2 arguments provided, at most 1 accepted. 
> While executing: (:INTERNAL CCL::TRACE-INSIDE-FRAME-P), in process listener(1).
> Type :POP to abort, :R for a list of available restarts.
> Type :? for other options.
1 > :B
*(605C4C) : 0 (FUNCALL #'#<(:INTERNAL CCL::TRACE-INSIDE-FRAME-P)> NIL -335179012) 5
 (605C88) : 1 (%MAP-CALL-FRAMES-INTERNAL #<COMPILED-LEXICAL-CLOSURE (:INTERNAL CCL::TRACE-INSIDE-FRAME-P) #xD0CEF5E> NIL 1578821 536870911 0 NIL) 311
 (605CB4) : 2 (MAP-CALL-FRAMES #<COMPILED-LEXICAL-CLOSURE (:INTERNAL CCL::TRACE-INSIDE-FRAME-P) #xD0CEF5E> :CONTEXT NIL :PROCESS NIL :ORIGIN NIL :COUNT 536870911 :START-FRAME-NUMBER 0 :TEST NIL) 495
 (605D14) : 3 (TRACE-INSIDE-FRAME-P B) 487
 (605D2C) : 4 (FUNCALL #'#<(CCL::TRACED A)>) 151
 (605D3C) : 5 (CALL-CHECK-REGS B) 247
 (605D58) : 6 (TOPLEVEL-EVAL (B) NIL) 711
 (605D98) : 7 (READ-LOOP :INPUT-STREAM #<SYNONYM-STREAM to *TERMINAL-IO* #xC33E06E> :OUTPUT-STREAM #<SYNONYM-STREAM to *TERMINAL-IO* #xC33DF96> :BREAK-LEVEL 0 :PROMPT-FUNCTION #<Compiled-function (:INTERNAL CCL::READ-LOOP) (Non-Global)  #x44774C6>) 2039
 (605EBC) : 8 (RUN-READ-LOOP :BREAK-LEVEL 0) 183
 (605ED0) : 9 (TOPLEVEL-LOOP) 71
 (605ED8) : 10 (FUNCALL #'#<(:INTERNAL (TOPLEVEL-FUNCTION (CCL::LISP-DEVELOPMENT-SYSTEM T)))>) 71
 (605EE8) : 11 (FUNCALL #'#<(:INTERNAL CCL::MAKE-MCL-LISTENER-PROCESS)>) 559
 (605F34) : 12 (RUN-PROCESS-INITIAL-FORM #<TTY-LISTENER listener(1) [Active] #xC33D686> (#<COMPILED-LEXICAL-CLOSURE # #xC33D3BE>)) 639
 (605F78) : 13 (FUNCALL #'#<(:INTERNAL (CCL::%PROCESS-PRESET-INTERNAL (PROCESS)))> #<TTY-LISTENER listener(1) [Active] #xC33D686> (#<COMPILED-LEXICAL-CLOSURE # #xC33D3BE>)) 519
 (605FCC) : 14 (FUNCALL #'#<(:INTERNAL CCL::THREAD-MAKE-STARTUP-FUNCTION)>) 255
1 > 

Something seems fishy when inlining TRUNCATE:

Welcome to Clozure Common Lisp Version 1.5-dev-r13524M-trunk  (LinuxX8632)!
? (defun foo (x y) (declare (type fixnum x y)) (truncate x y))
FOO
? (foo most-negative-fixnum -1)
-536870912
0
? (truncate most-negative-fixnum -1)
536870912
0
?