Permalink
Browse files

[cl-backends] ignore any empty list which accidently gets into the xref

table
  • Loading branch information...
1 parent 522c862 commit 51300e990a8a409bed02305ef1294523b0111906 @pmurias pmurias committed Feb 7, 2011
Showing with 1 addition and 1 deletion.
  1. +1 −1 cl-backend/backend.lisp
  2. 0 simple-tests/{todo → }/if.t
View
@@ -266,7 +266,7 @@
)
(list (fstash-to-let (fstash-list '() stash_root)
- (loop for thing in xref for i upfrom 0 collect (compile-sub-or-packagoid i thing)))))))
+ (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)))
File renamed without changes.

0 comments on commit 51300e9

Please sign in to comment.