我曾经在某处读到，我们可以将全局 Emacs 变量设置为T（或者NIL，我不知道）以便（大致）使 Emacs 可以从 Common Lisp 访问。
此信息附带警告，即这可能会产生不良副作用。我想避免这种情况，这就是为什么我把所有信息都记在心里/dev/null。
但是：有没有一种方法，可以让它slime-repl在函数的狭窄上下文中就能被它所承载的 Common Lisp 识别？
我想写一个函数，最好重新绘制整个 Emacs 窗口，就像中slime-clear-screen的效果一样。或者，根据当前窗口大小的行数重复。C-c M-oslime(format t "~%")
所以我想我需要找到一种方法来访问 Emacs 窗口控件或其大小信息。
但是在 Slime/Emacs 键和弦配置请求和 ANSI 转义序列的噪音中，我很难听到有希望的信息。
你知道我需要什么吗？或者更好的是：你知道一个已经提供同等功能的公共库吗？虽然我真的喜欢修修补补，但我也会明确地从大量库中寻找常用或值得推荐的库，以建立一个一致的开源“准标准”库框架。
我非常感谢您的建议。
给定一个类定义，是否可以根据另一个插槽来定义一个插槽，类似于我如何做的let*？
例如，我希望能够做这样的事情（显然不起作用）：
(defclass foo ()
((x :initform 1 :accessor x)
(y :initform (+ 1 x) :accessor y)))
考虑一下：
(defclass my-string ()
((data :initarg :data :type simple-string)
(properties :initarg :properties :type interval-tree))
(:documentation
"Represents a string with properties."))
我想在 typecase 表达式中使用 my-string 作为类型：
(defun upcase (obj)
(typecase obj
(my-string (string-upcase (slot-value obj 'data)))
(string (string-upcase obj))
(integer (char-upcase (code-char obj)))
(character (char-upcase obj))
(otherwise (error "Wrong type argument ~S" obj))))
我以为类是类型，但显然不是，因为上面的代码是编译器错误。所以我声明了一个类型：
(deftype my-string (s) (typep s 'my-string))
看来我必须像这样使用它（否则我会收到编译错误，typedef 需要一个参数）：
(defun upcase (obj)
(typecase obj
((my-string obj) (string-upcase (slot-value obj 'data)))
(string (string-upcase obj))
(integer (char-upcase (code-char obj)))
(character (char-upcase obj))
(otherwise (error "Wrong type argument ~S" obj))))
但是 SBCL 删除了我的代码，因为无法访问！:-)
我该怎么做？如何正确声明类的类型，以便可以在类型声明可用的表达式中使用它？
我知道我可以使用结构而不是类，在这种情况下，编译器会为该类型生成代码，并且初始类型“正常工作”：
(defstruct my-string
data properties)
宏扩展和查看生成的代码并没有真正让我更加明白。我看到的是：
(SB-C:XDEFUN MY-STRING-P
:PREDICATE
NIL
(SB-KERNEL::OBJECT)
(TYPEP SB-KERNEL::OBJECT 'MY-STRING))
它确实做了我所做的事，但我认为该函数不参与其中，还是我错了？要么他们以某种方式在内部将结构与类型关联起来，要么我错过了生成代码的一些相关部分？我对这些都不是很熟悉，所以也很有可能。
一个相关的问题：在 CommonLisp 中，对扩展内置类型（如字符串）的自定义类进行建模的正确方法是什么？像在 my-string 中所做的那样，进行组合是一种更好的方法吗？还是从某个内置的 CL 字符串类继承更好？基于这个 SX 问题和答案，在我看来，继承并不是对类型进行建模的最佳方式，这可能是更好的，因为我们不喜欢 Java 或旧 C++ 中的分类法。
最后，在这种情况下，我甚至不需要 typecase，如果我将 upcase 变成一个专门针对这些类型的通用方法，整个问题就消失了，我完全知道这一点。但是，我想更多地了解类型和类，以及如何在 CL 中对类似上述内容进行建模。
抱歉，这篇文章有点长，而且一个问题太多了，我才刚刚开始学习。感觉我遇到的每一个问题和寻找答案的尝试都会引出另外 10 个问题 :)。
全局变量a是一个 cons 单元，但不是列表。为什么 LISTP 会为其返回 T？
* (defvar a (cons 1 2))
A
* a
(1 . 2)
* (listp a)
T
我正在尝试编写一个时间线生成器，它采用包含要执行的时间和函数的 plist：
(defun run-timeline (timeline)
"Timeline is a plist with alternating timecodes and code to execute"
(alexandria:doplist (time form timeline)
(sb-ext:schedule-timer
(sb-ext:make-timer form
:thread t)
time)))
(run-timeline '(0 (print "first")
2 (print "second")))
然而，这给了我这个错误：
The value
(PRINT "first")
is not of type
(OR FUNCTION SYMBOL)
[Condition of type TYPE-ERROR]
Restarts:
0: [USE-VALUE] Use specified value.
1: [ABORT] abort thread (#<THREAD tid=203285 "Timer NIL" RUNNING {1001179523}>)
Backtrace:
0: (SB-VM::CALL-SYMBOL)
1: ((FLET SB-THREAD::WITH-RECURSIVE-LOCK-THUNK :IN SB-IMPL::MAKE-CANCELLABLE-INTERRUPTOR))
2: ((FLET "WITHOUT-INTERRUPTS-BODY-" :IN SB-THREAD::CALL-WITH-RECURSIVE-LOCK))
3: ((FLET "WITHOUT-INTERRUPTS-BODY-1" :IN SB-IMPL::MAKE-CANCELLABLE-INTERRUPTOR))
4: ((LAMBDA NIL :IN SB-IMPL::MAKE-CANCELLABLE-INTERRUPTOR))
5: ((FLET SB-UNIX::BODY :IN SB-THREAD::RUN))
6: ((FLET "WITHOUT-INTERRUPTS-BODY-" :IN SB-THREAD::RUN))
7: ((FLET SB-UNIX::BODY :IN SB-THREAD::RUN))
8: ((FLET "WITHOUT-INTERRUPTS-BODY-" :IN SB-THREAD::RUN))
9: (SB-THREAD::RUN)
10: ("foreign function: call_into_lisp_")
当对 lambda 表达式进行硬编码时，我没有收到任何错误，并且它按预期工作：
(defun run-timeline (timeline)
"Timeline is a plist with alternating timecodes and code to execute"
(alexandria:doplist (time form timeline)
(sb-ext:schedule-timer
(sb-ext:make-timer (lambda ()
(print "hi")
(force-output))
:thread t)
time)))
我在这里遗漏了什么？
我正在关注《光线追踪挑战》这本书。我创建了一个 vector3 和 color defstruct
(defstruct (vector3
(:conc-name nil)
(:constructor v3 (x y z w)))
(x 0.0 :type float)
(y 0.0 :type float)
(z 0.0 :type float)
(w 0.0 :type float))
(defstruct (colors
(:conc-name nil)
(:constructor colors (r g b w)))
(r 0.0 :type float)
(g 0.0 :type float)
(b 0.0 :type float)
(w 0.0 :type float))
以及其他一些函数，如比例乘数
(defun vector-scalar (s v1)
(vector3 (* s (x v1))
(* s (y v1))
(* s (z v1))
(* s (w v1))))
但是当我尝试加载文件时出现以下错误
caught WARNING:
; Derived type of COMMON-LISP-USER::V1 is
; (VALUES COMMON-LISP-USER::VECTOR3 &OPTIONAL),
; conflicting with its asserted type
; COMMON-LISP-USER::COLORS.
; See also:
; The SBCL Manual, Node "Handling of Types"
我认为程序内部的任何内容都具有局部作用域，所以我不明白为什么我认为是函数输入的内容会与 混淆defstruct。如果我只加载向量，defstruct则不会出现错误。
我担心的是，defstruct我创建的任何具有四个参数的东西都会与 vector3 混淆
我不知道如何解决这个问题，因为我实际上不明白到底哪里出了问题。
我有文件R和两个文件A，B。
R始终处于加载状态。
A xor B的加载取决于平台特性。我有一个无论在什么平台上都应该存在的函数，调用它F。
使用的优点/缺点是什么：
DEFGENERIC在F中R，然后DEFMETHOD在F中A，BDEFUN'FAB从表面上看，它们应该是一样的。这不仅仅是个人喜好问题吗？
我目前正在采用第一种方法，因为它清楚地表明该函数是通用的并且具有实现，但我很好奇为什么与第二种方法相比它如此重要。
这个有点令人尴尬，但是我被这个问题困扰的时间比我想承认的要长。
我想生成一个宏，如果在某个现有包中找到符号，则该宏会自动隐藏该符号。我只使用 :common-lisp 包，并将从标准中隐藏几个函数。
我之前保存过一个阴影和导出符号列表，但我不想保留这些列表。相反，我更愿意从宏中隐藏符号，这样我就可以同时拥有阴影和导出声明以及定义。这看起来很简单，但是，无论我以何种方式实现它，我要么违反了包锁，要么我的符号未定义，要么其他原因。首先，这是一个包定义：
(in-package :cl-user)
(uiop:define-package :foo-package
(:nicknames :foo)
(:use :common-lisp)
(:shadow #:defun))
(in-package :foo)
测试函数不执行任何操作，只是对测试的一个小包装：
(defun make-string (length init)
(cl:make-string length :initial-element init))
我的第一次尝试是这样的：
(cl:defmacro defun (name arglist &optional docstring &rest body)
`(progn
(when (symbol-package ',name)
(shadow ',name))
(cl:defun ,name ,arglist ,docstring ,@body)
(export '(,name))))
但是，这会导致 SBCL 的包锁冲突，因此在我尝试使用 cl:defun 重新定义该函数之前，影子函数显然没有生效。
将其包装进去
(eval-when (:compile-toplevel :load-toplevel :execute)，以使其在编译时可用并没有帮助。
另一种尝试是使用发电机：
(eval-when (:compile-toplevel :load-toplevel :execute)
(cl:defmacro defun (name args &optional docstring &rest body)
(macrolet ((export-it (name args &optional docstring &rest body)
`(progn
(when (symbol-package ',name)
(shadow ',name))
(cl:defun ,name ,args ,docstring ,@body)
(export '(,name) *package*))))
`(export-it ,name ,args ,docstring ,@body))))
这给了我 common-lisp:make-string unbound：
调试器在线程 #<THREAD "main thread" RUNNING {10044982F3}> 中的 UNBOUND-VARIABLE @10039FFD22 上调用：变量 MAKE-STRING 未绑定。
我曾尝试生成一个 lambda 并用 funcall 调用它，但也没有成功。
如果我从 repl: 手动隐藏 make-string (shadow 'make-string)，那么我之后可以重新定义并导出 make-string 而不会出现问题。
看来我误解了一些更基本的东西。
顺便说一句，我正在阅读 M. Cracauers 的编译时编程文章，并认为将所有内容放在同一位置是一个好主意，但我认为我对宏和编译时与运行时评估的熟悉程度还不够。
我知道我可以使用 SBCL 特定的东西来临时删除包锁，但我最初用来检查符号是否在：common-lisp 包中的“shadow”和“symbol-package”或“find-package”和“find-symbol”应该更具可移植性。
我一直在尝试掌握 common-lisp 中的包系统，并且我（有点）理解这个想法。然而，像许多人一样（我搜索了许多其他类似的问题），似乎存在一些我无法完全克服的实施障碍。
所以：我试图定义一个由两个 lisp 文件组成的包。我正在使用 portacle，所有文件都位于同一目录中，包括系统定义和我编写的代码（/portacle/projects/）：
ASDF 文件如下所示，它的名称只是 census-api.asd；在同一目录中有一个名为packages.lisp的包文件。
但是，当我尝试 (ql:quickload "census-api") 时，我得到“系统未找到”。
公平地说，如果我检查 Quicklisp 本地目录变量，它似乎应该可以工作：
ql:*local-project-directories*
(#P"c:/Users/Brian/portacle/projects/"
#P"c:/Users/Brian/portacle/all/quicklisp/local-projects/")
同样，我将当前路径更改为项目目录--
(setf *default-pathname-defaults* #P"c:/Users/Brian/portacle/projects/")
#P"c:/Users/Brian/portacle/projects/"
但当我尝试通过 Quicklisp 加载时，这些都不会改变“未找到系统”。我觉得我错过了某种预加载定义步骤？
接下来是什么？
我可以返回到只加载各个文件本身（它们当前使用一个“''（包内#：census-api）''”，它会出错，但我可以评论该行并直接加载），但我' d 希望能够定义系统。
编辑：好的，我直接编译了“packages.lisp”（定义如下）；现在，quickload 能够执行“(ql:quickload "census-api")”，并且当通过 common lisp 用户包调用时，相关函数可用，例如 (census-api:set-fips 等)。但我仍然无法使用（包内“census-api”），如果我必须预加载所有这些文件，我觉得我一定做错了什么。
编辑2：好的，（包内：census-api）现在可以工作了，因为：census-api和“census-api”意味着不同的东西，我知道即使我并不总是理解一个与另一个的工作原理）。这解决了我当前的使用问题，但不是更广泛的问题——如何使用快速加载（或任何其他系统实用程序）来避免手动加载包？或者这只是做生意的代价？
人口普查-api.asd
(defsystem "census-api"
:description "A collection of utilities to pull Census, BLS, and Google DistanceMatrix API data.
For default use, evaluate the following --
Census: (set-fips), (set-hh-input), (print-hh-output (output-list))
BLS: (set-fips), (print-bls-data (prepare-hashed-bls-data))
Distancematric: (set-location-params), (print-dm-output (get-data (*api-response*)))"
:author "Brian LastName <[email protected]>"
:license "To be determined"
:version "0.5"
:depends-on ("dexador" "shasht")
:serial t
:components ((:file "census-api")
(:file "distancematrix-api")))
包.lisp：
;;; Packages for Census Work
(defpackage #:distancematrix-api
(:use #:cl)
(:export #:set-location-params
#:call-dm-api
#:parse-response
#:get-data
#:print-dm-output))
(defpackage #:census-api
(:use #:cl)
(:export #:set-fips
#:set-hh-output
#:print-hh-output
#:output-list
#:prepare-hashed-bls-data
#:print-bls-data))
我有这个词的两个版本hi。
(defvar x "```hi```")
(defvar y "```
hi
```")
我还有一个正则表达式扫描仪：
(defvar scanner (cl-ppcre:create-scanner "```(.*?)```" :multi-line-mode t))
当我对 x 进行正则表达式替换时，它会按预期返回。但multi-line-mode似乎不起作用。
(cl-ppcre:regex-replace scanner x "\\1") ;; => "hi"
(cl-ppcre:regex-replace scanner y "\\1") ;; => "```
hi
```"
我希望“```”之间的所有内容都被替换，无论字符串有多少生命。
我究竟做错了什么？