From f87a31a02a7b0b84ed877880d9ae22253ce89671 Mon Sep 17 00:00:00 2001
From: dos-reis <gdr@axiomatics.org>
Date: Sat, 21 May 2011 10:17:53 +0000
Subject: more cleanup

---
 src/boot/strap/ast.clisp | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

(limited to 'src/boot/strap/ast.clisp')

diff --git a/src/boot/strap/ast.clisp b/src/boot/strap/ast.clisp
index 266b7e21..61a5f103 100644
--- a/src/boot/strap/ast.clisp
+++ b/src/boot/strap/ast.clisp
@@ -272,8 +272,7 @@
   (COND
     ((NULL |x|) NIL)
     ((AND (SYMBOLP |x|) (|bfBeginsDollar| |x|)) (|compFluid| |x|))
-    ((ATOM |x|) |x|)
-    ((AND (CONSP |x|) (EQ (CAR |x|) 'QUOTE)) |x|)
+    ((|atomic?| |x|) |x|)
     (T (CONS (|compFluidize| (CAR |x|)) (|compFluidize| (CDR |x|))))))
 
 (DEFUN |bfPlace| (|x|) (CONS '|%Place| |x|))
@@ -740,7 +739,7 @@
 (DEFUN |bfSUBLIS| (|p| |e|)
   (COND
     ((ATOM |e|) (|bfSUBLIS1| |p| |e|))
-    ((AND (CONSP |e|) (EQ (CAR |e|) 'QUOTE)) |e|)
+    ((EQ (CAR |e|) 'QUOTE) |e|)
     (T (CONS (|bfSUBLIS| |p| (CAR |e|)) (|bfSUBLIS| |p| (CDR |e|))))))
 
 (DEFUN |bfSUBLIS1| (|p| |e|)
@@ -1800,7 +1799,8 @@
 (DEFUN |shoeATOMs| (|x|)
   (COND
     ((NULL |x|) NIL)
-    ((ATOM |x|) (LIST |x|))
+    ((SYMBOLP |x|) (LIST |x|))
+    ((ATOM |x|) NIL)
     (T (|append| (|shoeATOMs| (CAR |x|)) (|shoeATOMs| (CDR |x|))))))
 
 (DEFUN |isDynamicVariable| (|x|)
-- 
cgit v1.2.3