pseudo/package.lisp at main · jrm-code-project/pseudo · 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
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
;;; -*- Lisp -*-

(defpackage "AUTODOC"
  (:shadowing-import-from "FUNCTION" "COMPOSE")
  (:shadowing-import-from "NAMED-LET" "LET" "NAMED-LAMBDA")
  (:shadowing-import-from "SERIES" "FUNCALL" "LET*" "MULTIPLE-VALUE-BIND")
  (:shadow "DEFCLASS"
           "DEFCONSTANT"
           "DEFGENERIC"
           "DEFMACRO"
           "DEFPARAMETER"
           "DEFUN"
           "DEFSTRUCT"
           "DEFVAR")
  (:use "ALEXANDRIA" "CL" "FOLD" "FUNCTION" "NAMED-LET" "SERIES")
  (:export "DEFCLASS"
           "DEFCONSTANT"
           "DEFGENERIC"
           "DEFMACRO"
           "DEFPARAMETER"
           "DEFUN"
           "DEFSTRUCT"
           "DEFVAR"))

(defpackage "PSEUDO"
  (:shadowing-import-from "FUNCTION" "COMPOSE")
  (:shadowing-import-from "NAMED-LET" "LET" "NAMED-LAMBDA")
  (:shadowing-import-from "SERIES" "DEFUN" "FUNCALL" "LET*" "MULTIPLE-VALUE-BIND")
  (:use "ALEXANDRIA" "CL" "FOLD" "FUNCTION" "NAMED-LET" "SERIES")
  (:export
   "+PSEUDO-MODEL+"
   "PSEUDO"
   "PSEUDEFUN"
   ))

(defpackage "AUTODOC-TESTS"
  (:shadowing-import-from "FUNCTION" "COMPOSE")
  (:shadowing-import-from "NAMED-LET" "LET" "NAMED-LAMBDA")
  (:shadowing-import-from "SERIES" "FUNCALL" "LET*" "MULTIPLE-VALUE-BIND")
  (:shadowing-import-from "AUTODOC"
                          "DEFCLASS"
                          "DEFCONSTANT"
                          "DEFGENERIC"
                          "DEFMACRO"
                          "DEFPARAMETER"
                          "DEFUN"
                          "DEFSTRUCT"
                          "DEFVAR")
  (:use "ALEXANDRIA" "CL" "FOLD" "FUNCTION" "NAMED-LET" "PSEUDO" "SERIES"))

(defpackage "PSEUDO-TESTS"
  (:shadowing-import-from "FUNCTION" "COMPOSE")
  (:shadowing-import-from "NAMED-LET" "LET" "NAMED-LAMBDA")
  (:shadowing-import-from "SERIES" "DEFUN" "FUNCALL" "LET*" "MULTIPLE-VALUE-BIND")
  (:use "ALEXANDRIA" "CL" "FOLD" "FUNCTION" "NAMED-LET" "PSEUDO" "SERIES")
  (:export
   ))