diff options
Diffstat (limited to 'src/boot/strap/ast.clisp')
| -rw-r--r-- | src/boot/strap/ast.clisp | 10 |
1 files changed, 0 insertions, 10 deletions
diff --git a/src/boot/strap/ast.clisp b/src/boot/strap/ast.clisp index 63c806be..cba0ef88 100644 --- a/src/boot/strap/ast.clisp +++ b/src/boot/strap/ast.clisp @@ -244,16 +244,6 @@ (DEFUN |bfEqual| (|name|) (LIST 'EQUAL |name|)) -(DECLAIM (FTYPE (FUNCTION (|%Thing|) |%Thing|) |bfBracket|)) - -(DEFUN |bfBracket| (|part|) |part|) - -(DECLAIM (FTYPE (FUNCTION ((|%List| |%Form|)) (|%List| |%Form|)) |bfPile|)) - -(DEFUN |bfPile| (|part|) |part|) - -(DEFUN |bfDo| (|x|) |x|) - (DEFUN |bfAtScope| (|s| |x|) (LIST 'LET (LIST (LIST '*PACKAGE* |s|)) |x|)) (DECLAIM |