Changeset 7795 for branches


Ignore:
Timestamp:
Nov 30, 2007, 12:55:59 PM (17 years ago)
Author:
Gary Byers
Message:

Use MAYBE-SETF-NAME when reporting undefined function names.

Location:
branches/working-0711/ccl/level-1
Files:
2 edited

Legend:

Unmodified
Added
Removed

  • branches/working-0711/ccl/level-1/ppc-error-signal.lisp

    r5625 r7795  
    114114                  (%kernel-restart-internal
    115115                   $xudfcall
    116                    (list (xp-gpr-lisp xp ppc::fname) args)
     116                   (list (maybe-setf-name (xp-gpr-lisp xp ppc::fname)) args)
    117117                   frame-ptr)))
    118118         (stack-argcnt (max 0 (- (length args) 3)))

  • branches/working-0711/ccl/level-1/x86-error-signal.lisp

    r6558 r7795  
    5555                  (%kernel-restart-internal
    5656                   $xudfcall
    57                    (list (encoded-gpr-lisp xp x8664::fname) args)
     57                   (list (maybe-setf-name (encoded-gpr-lisp xp x8664::fname)) args)
    5858                   frame-ptr)))
    5959         (f #'(lambda (values) (apply #'values values))))
Note: See TracChangeset for help on using the changeset viewer.