Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with
or
.
Download ZIP
Browse files

[cl-backends] remove empty lines

  • Loading branch information...
commit 710ffd7b0e785de999a4bc028acb20691318d2a4 1 parent b246ee3
@pmurias pmurias authored
Showing with 0 additions and 14 deletions.
  1. +0 −14 cl-backend/backend.lisp
View
14 cl-backend/backend.lisp
@@ -11,7 +11,6 @@
(defun xref-to-symbol (xref) (intern (concatenate 'string "XREF-" (first xref) "-" (write-to-string (second xref)))))
(defun main-xref (i) (xref-to-symbol (list "MAIN" i "...")))
-
(defmacro nam-op (name params &body body) `(defmacro ,(concat-symbol 'nam- name) ,params ,@body))
@@ -45,10 +44,6 @@
(cons (to-symbol-first (first thing)) (mapcar #'to-symbol (rest thing)))
thing))
-
-
-
-
; P6 Classes
@@ -109,8 +104,6 @@
`(defun ,(main-xref i) ,(mymap #'compile-param signature) (let ,(lexicals-to-let lexicals) ,@nam)))
-
-
(defun xref-to-subsymbol (xref) (main-xref (cadr xref)))
; HACK
@@ -257,16 +250,12 @@
(defun fstash-to-setf (stash)
(mapcar (lambda (x) `(setf ,(to-stash-name (first x)) ,(xref-to-symbol (second x)))) (only-with-xrefs (hide-foreign stash))))
-
-
(defun hide-foreign (stash)
(remove-if
(lambda (x)
(and (second x) (not (equal (first (second x)) "MAIN"))))
stash))
-
-
(defun compile-unit (nam)
(fare-matcher:match nam
((list
@@ -285,12 +274,10 @@
(list (fstash-to-let (fstash-list '() stash_root)
(loop for thing in xref for i upfrom 0 when thing collect (compile-sub-or-packagoid i thing)))))))
-
(defun print-thing (thing) (format t "~A" (FETCH thing)))
(defun p6-say (&rest things) (mapcar #'print-thing things) (format t "~%"))
(defun p6-concat (&rest things) (apply 'concatenate 'string (mapcar #'FETCH things)))
-
(defun wrap-for-eval (compiled-unit)
`(let ((|&infix:<~>| #'p6-concat)
(|&say| #'p6-say)
@@ -299,7 +286,6 @@
)
,@compiled-unit (,(main-xref 0))))
-
(let ((compiled-unit (compile-unit (json:decode-json (open (first *args*))))))
;(format t "~w~%~%~%" (json:decode-json (open (first *args*))))
;(format t "~w~%~%~%" compiled-unit)
Please sign in to comment.
Something went wrong with that request. Please try again.