blob: 63d8d19cea010b9ace6c625ff4c6f616bd9f235a (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
|
(defpackage #:builtins
(:use #:openlisp)
(:export
#:connect
#:bt-quit
#:help
#:look)
)
(in-package #:builtins)
(defun bt-quit ()
(format (standard-output) "TODO: quit~%"))
(defun help ()
(format (standard-output) "TODO: help~%"))
(defun look ()
(format (standard-output) "TODO: look~%"))
(provide "builtins")
|