Permalink
Browse files

[cl-backend] rename preinit to *preinit*

  • Loading branch information...
pmurias committed Mar 7, 2011
1 parent cbe9ac1 commit d426c3dd5458ae72943e8cc9356c9cae9f245f35
Showing with 4 additions and 4 deletions.
  1. +4 −4 cl-backend/backend.lisp
View
@@ -101,7 +101,7 @@
(defun mymap (func list) (remove-if #'null (mapcar func list)))
-(defvar preinit)
+(defvar *preinit*)
(defmacro define-nam-sub
(i ; The Xref Id
@@ -127,7 +127,7 @@
(if hint_hack
(let ((var (hint-var (xref-to-symbol (first hint_hack)) (second hint_hack))))
(eval `(defvar ,var))
- (setf preinit (append `((setf ,var (,(main-xref i)))) preinit))
+ (setf *preinit* (append `((setf ,var (,(main-xref i)))) *preinit*))
))
`(defun ,(main-xref i)
@@ -312,9 +312,9 @@
)
(wrap-in-unit-name name `(
- (let ((preinit '()))
+ (let ((*preinit* '()))
,(niecza-stash:wrap-in-let stash_root (compile-xref-table xref))
- (eval `(progn ,@preinit))
+ (eval `(progn ,@*preinit*))
(,(xref-to-symbol mainline_ref))))))))

0 comments on commit d426c3d

Please sign in to comment.