Changeset 5345


Ignore:
Timestamp:
Oct 14, 2006, 12:21:25 PM (13 years ago)
Author:
gb
Message:

It makes no sense to use the vinsn macros <- and inside ENSURING-NODE-TARGET,
so make it check for that.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/ccl/compiler/backend.lisp

    r4957 r5345  
    420420  `(let* ((*available-backend-node-temps* *available-backend-node-temps*)
    421421          (,target-var (ensure-node-target ,vreg-var)))
    422      (declare (special *available-backend-node-temps*))     
    423      (progn
    424        ,@body)
    425      (<- ,target-var)))
     422    (declare (special *available-backend-node-temps*))
     423    (macrolet ((<- (&whole call &rest args)
     424                 (declare (ignore args))
     425                 (error "Invalid use of <- inside ENSURING-NODE-TARGET: ~s" call))
     426               (^ (&whole call &rest args)
     427                 (declare (ignore args))
     428                 (error "Invalid use of ^ inside ENSURING-NODE-TARGET: ~s" call)))
     429      (progn
     430        ,@body))
     431    (<- ,target-var)))
    426432
    427433(defun acode-invert-condition-keyword (k)
Note: See TracChangeset for help on using the changeset viewer.