Change MAYBE-QUOTE to allow any non-atoms through.

Fixes #37

documentation.lisp

@@ -893,13 +893,7 @@ By default only subconditions of ERROR are caught.")
     "Quotes the expression if it is necessary to do so.
 
 It is considered unnecessary to quote the expression if:
-  - The expression is a list that has one of the following symbols as its
-    first element:
-    - QUOTE
-    - LAMBDA
-    - FUNCTION
-    - SB-INT:QUASIQUOTE
-    - SI:QUASIQUOTE
+  - The expression isnt an atom
   - It is constant under CONSTANTP
 
 Implementations other than SBCL and ECL are \"out of luck\" when it comes

toolkit.lisp

@@ -110,14 +110,9 @@
          ,err))))
 
 (defun maybe-quote (expression)
-  (typecase expression
-    (list (case (first expression)
-            ((quote lambda function #+ecl si:quasiquote)
-             expression)
-            (T `',expression)))
-    (T (if (constantp expression)
-           expression
-           `',expression))))
+  (if (or (listp expression) (constantp expression))
+      expression
+      `',expression))
 
 ;;; THIS IS A BAD IDEA AND I DON'T REMEMBER WHY I ADDED IT.
 (defun maybe-unquote (expression)