Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with
or
.
Download ZIP
Browse files

[cl-backend] strip nam-ann when printing out the op tree

  • Loading branch information...
commit 087707078ba6146b2db20faecf9a8b268f5d7e42 1 parent 79f1b8c
@pmurias pmurias authored
Showing with 9 additions and 3 deletions.
  1. +9 −3 cl-backend/backend.lisp
View
12 cl-backend/backend.lisp
@@ -10,10 +10,17 @@
(log-message :info "cl-backend started")
-(defun nam-op-log (name result) (log-message :info (format nil "~a => ~w" name result)) result)
+(defun nam-op-log (name result) (log-message :info (format nil "~a => ~w" name (strip-ann result))) result)
+(defun strip-ann (thing)
+ (if (consp thing)
+ (if (eq (first thing) 'nam-ann)
+ (strip-ann (cadddr thing))
+ (mapcar #'strip-ann thing)
+ )
+ thing))
(defun concat-symbol (a b) (intern (concatenate 'string (string a) (string b))))
@@ -182,8 +189,7 @@
(let ((compiled-unit (compile-unit (json:decode-json (open (first *args*))))))
- (format t "~w~%~%~%" compiled-unit)
+ (format t "~w~%~%~%" (strip-ann compiled-unit))
(let ((wrapped (wrap-for-eval compiled-unit)))
-; (format t "~a~%" wrapped)
(eval wrapped)
))
Please sign in to comment.
Something went wrong with that request. Please try again.