Changeset 11678


Ignore:
Timestamp:
Feb 3, 2009, 7:14:52 PM (11 years ago)
Author:
gz
Message:

keep-symbols for trace encapsulation fn so can see args in backtraces

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/working-0711/ccl/lib/encapsulate.lisp

    r11101 r11678  
    703703             (values-list vals))
    704704           do-it)))
    705      `(traced ,sym))))
     705     `(traced ,sym)
     706     :keep-symbols t)))
    706707
    707708; &method var tells compiler to bind var to contents of next-method-context
     
    742743
    743744
    744 (defun compile-named-function-warn (fn name)
    745   (multiple-value-bind (result warnings) (compile-named-function fn :name name)
     745(defun compile-named-function-warn (fn name &rest keys)
     746  (declare (dynamic-extent keys))
     747  (multiple-value-bind (result warnings) (apply #'compile-named-function fn :name name keys)
    746748    (when warnings
    747749      (let ((first t))
Note: See TracChangeset for help on using the changeset viewer.