explicit-bind/package.lisp at master · Hexstream-not-yet-ready/explicit-bind · GitHub

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
(in-package #:cl-user)

(defpackage #:explicit-bind
  (:use #:cl)
  (:export #:bind))

;; Don't :use. Use package-qualified symbols.
(defpackage #:explicit-bind-expander
  (:nicknames #:eb-expander)
  (:use #:cl)
  (:shadow #:find
           #:function)
  (:export #:define
           #:expand
           #:find
           #:expander
           #:name
           #:function
           #:specs-lambda-list
           #:forms-lambda-list))

;; Don't :use. Use package-qualified symbols.
(defpackage #:explicit-bind-merger
  (:nicknames #:eb-merger)
  (:use #:cl)
  (:shadow #:find
           #:function
           #:merge)
  (:export #:define
           #:merge1
           #:merge
           #:find
           #:merger
           #:name
           #:function
           #:lambda-list))