Coverage report: /home/ellis/comp/core/lib/cli/repl.lisp

KindCoveredAll%
expression07 0.0
branch00nil
Key
Not instrumented
Conditionalized out
Executed
Not executed
 
Both branches taken
One branch taken
Neither branch taken
1
 ;;; lib/cli/repl.lisp --- REPL utils
2
 
3
 ;;; Code:
4
 (in-package :cli/repl)
5
 
6
 ;; *command-char* alias make-repl-fun
7
 
8
 ;;; Allegro-style REPL
9
 ;; this should be used as a light layer on top of the standard Lisp
10
 ;; REPL provided by SBCL. Basically whenever we're typing input
11
 ;; destined for a Lisp reader this is our best bet.
12
 (defun load-acl-repl ()
13
   "Load the SB-ACLREPL package, applying changes to the default SBCL
14
 REPL."
15
   (require 'sb-aclrepl))
16
 
17
 ;;; TOPLEVEL
18
 
19
 ;; These macros help with defining a toplevel initialization
20
 ;; function. Initialization functions are responsible for parsing runtime
21
 ;; options and starting a REPL if needed.
22
 ;; (defmacro define-toplevel-init (name (props opts) &body body))
23
 ;; (defmacro define-toplevel-repl (name (props opts) &body body))
24
 
25
 (defun default-toplevel-init (&optional (package *package*))
26
   "Default toplevel initializer - wraps SBCL init."
27
   (with-package package
28
     (sb-impl::toplevel-init)))