[Erbot-cvs] Changes to erbot/erbc.el

[D . Goel]

Index: erbot/erbc.el
diff -u erbot/erbc.el:1.105 erbot/erbc.el:1.106
--- erbot/erbc.el:1.105 Fri Apr  8 15:23:08 2005
+++ erbot/erbc.el       Wed Apr 13 19:45:47 2005
@@ -1,5 +1,5 @@
 ;;; erbc.el --- Erbot user-interface commands.
-;; Time-stamp: <2005-04-08 11:22:33 deego>
+;; Time-stamp: <2005-04-13 15:44:50 deego>
 ;; Copyright (C) 2002 D. Goel
 ;; Emacs Lisp Archive entry
 ;; Filename: erbc.el
@@ -942,13 +942,13 @@
            ;; already in lisp form...  just need to sandbox..
            ((and lispmsg 
                  (or
-                  (listp lispmsg)
+                  (consp lispmsg)
                   (and fs-internal-max-lisp-p (numberp lispmsg))
                   (and fs-internal-max-lisp-p (stringp lispmsg))
                   (and (symbolp lispmsg)
                        (let ((newsym
-                              (intern (format "fs-%S" lispmsg))))
-                         
+                              ;;(intern (format "fs-%S" lispmsg))
+                              (erblisp-sandbox lispmsg)))
                          (or
                           (equal 0
                                  (string-match "fs-" 
@@ -970,7 +970,8 @@
            ;; resolves properly..
            ((or 
              ;; fboundp ==> allowing macros as well..
-             (fboundp (intern (concat "fs-" (first msg))))
+             ;;(fboundp (intern (concat "fs-" (first msg))))
+             (fboundp (erblisp-sandbox (intern (first msg))))
              ;;(functionp (intern (concat "fs-" (first msg))))
              (equal 0 (string-match "fs-" (first msg))))
             ;; this works great, except that we would like to quote the