made symbols a Builtin and did apropos in Lisp

Builtin.pm

@@ -395,23 +395,9 @@ sub Bload {
         return load($fname, $noerror, $nomessage);
 }
 
-sub Bapropos {
-        my ($re) = checkargs($_[0], ':S');
-        $re = '.' if is_nil($re);
-        my $result = $Nil;
-        my $end;
-        for my $sym (sort {symbol_name($a) cmp symbol_name($b)} all_symbols()) {
-                if (symbol_name($sym) =~ /$re/) {
-                        my $newpair = cons($sym, $Nil);
-                        if ($end) {
-                                rplacd($end, $newpair);
-                                $end = $newpair;
-                        } else {
-                                $end = $result = $newpair;
-                        }
-                }
-        }
-        return $result;
+sub Bsymbols {
+        checkargs($_[0], '');
+        return array2list(all_symbols);
 }
 
 sub Beq {
@@ -933,7 +919,7 @@ my @builtins =                          # [name, func, is_special, doc]
       "define an anonymous special form from ARGS and &rest BODY"],
      ["eq", \&Beq, 0,
       "return t if ARG1 and ARG2 are the same object, nil else"],
-     ["apropos", \&Bapropos, 0, "return a list of symbols matching ARG"],
+     ["symbols", \&Bsymbols, 0, "return a list of all symbols"],
      ["princ", \&Bprinc, 0, "print ARG to standard output without quoting"],
      ["princs", \&Bprincs, 0, "princ ARG to a string and return the string"],
      ["prin1", \&Bprin1, 0, "print ARG suitable for read"],

Fundamental.lisp

 ;; fundamental predefined Lisp functions
 ;(debug t)
 
-(defun symbols ()
-  "return a sorted list of all symbols"
-  (apropos "."))
+(defun apropos (match)
+  (sort (filter #'(lambda (sym) (re-match match (symbol-name sym)))
+                (symbols))
+        #'string<))
 
 (defun caar (pair)
   "return the car of the car of PAIR"

TODO

@@ -2,9 +2,13 @@
 
 *: to do; @: in progress; #: blocked; +: done; -: rejected
 
-  * do something sensible with (describe) for functions
+  * environments and lexical scope
 
-  * 031 and read errors
+  * more of alists
+
+  + do something sensible with (describe) for functions
+
+  + 031 and read errors
 
   + command line options like lingo's -e -h -l -q