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