common-lisp

    1热度

    2回答

    禁止sbcl中的make-instance上的样式警告

    我有两个包中都定义了一个类。第二个类继承了第一个类，但有一个同名的插槽。其目的确实是为了覆盖插槽。 (defpackage :foo (:use :cl) (:export foo)) (in-package :foo) (defclass foo() ((s))) (defpackage :bar (:use :cl :foo) (:expor
    common-lisp warnings sbcl clos suppress 2017-08-26

    0热度

    1回答

    SBCL：列出所有有效字符编码

    要获得SBCL所有有效编码列表，我这样做： (let (encoding-list) (let (symbol-list) (do-external-symbols (s :keyword) (push s symbol-list)) (setf symbol-list (sort symbol-list #'string<)) (mapc (l
    encoding character-encoding common-lisp sbcl 2017-09-03

    3热度

    2回答

    如何在仅IPv6网络上使用Clozure CL？

    我试图在IPv6的唯一网络合作时Clozure CL更换SBCL，但遇到这样的一个错误： MIGRATIONS> (ignore-errors (ccl:make-socket :remote-host "ya.ru" :remote-port 443)) NIL #<CCL:NO-APPLICABLE-METHOD-EXISTS #x302005215E5D> MIGRATIONS> (i
    common-lisp clozure-cl 2017-09-04

    1热度

    1回答

    我可以（asdf：load-system：foo），但asdf仍然抱怨''foo'没有指定包'

    试图最终开始使用asdf作为我的lisp的涂鸦，我尝试设置一个简单的示例。这些文件是 ; contents of example.asd (asdf:defsystem "example" :name "example" :depends-on ("foo") :components ((:file "example"))) 和 ; contents of ex
    common-lisp sbcl quicklisp asdf 2017-09-09

    1热度

    1回答

    从陶瓷：包得到了uiop/run-program：subprocess-error没有找到我的组件（并没有显示太多）

    我想用Ceramic构建一个应用程序包。我可以用它运行应用程序。 (ceramic:bundle :WEBLOCKS-TODOMVC :bundle-pathname #p"build/todomvc.tar") 运行... Ceramic: Compiling app... Launch: "/usr/local/bin/sbcl" --noinform --no-userinit --
    common-lisp slime asdf 2017-09-13

    1热度

    1回答

    访问SBCL错误号字符串

    在SBCL为我打开一个不存在的文件时，请在这里我可以处理错误： (require "SB-POSIX") (let* (fd) (handler-case (setf fd (sb-posix:open "w" sb-posix:o-rdonly)) (sb-posix:syscall-error (c) (princ "error ")
    common-lisp sbcl 2017-09-14

    0热度

    1回答

    Lisp，不在defun工作的说明

    我试图做一个功能，将中缀输入更改为前缀，例如：(x + 1)作为输入输出为(+ x 1)。 所以这是我的时刻代码： (setq x '(Y + 1)) (if (listp x) (list (second x) (first x) (first (last x))) x) 所以返回(+ Y 1)如果我输入一个列表，如果它不是一个列表中的用户输入。 然而，问题是，我不能得到这个代码的函数工作
    syntax-error lisp common-lisp 2017-09-14

    -2热度

    1回答

    如何在没有dolist的情况下在lisp中打印树，只有递归？

    INPUT：（A（B（d（E）（F）））（C）（K）） 我现在有两个功能，这给我的OUTPUT： 甲 乙 ç ķ 乙 d d Ë ˚F Ë NIL 但是我需要输出这样的： 一个：BCK B：d C： k： d：电子网 E： F： 或 一个 b】S K d 电子网 (defun print-children (s) (cond ((null (caar (cdr s))) nil)
    recursion printing tree lisp common-lisp 2017-09-14

    0热度

    1回答

    “DO”宏变量定义不被束缚

    我已经写了使用DO宏（用彼得·塞贝尔的书作为参考）功能，但由于某些原因，当我编译我的功能： (defun test() (do ((n 2 (1+ n)) (m 1 (1+ m)) (a (1+ n)) (b (1+ m)) (c (+ n m))) ((= n 10) (* a b c)) (print (* a
    common-lisp 2017-09-14

    1热度

    1回答

    CLISP递归函数的ATOM返回，如果它是一个列表

    我需要帮助搞清楚我有什么错我的代码中的一员，这是分配问题： 写一个递归函数命名MYMEMBER接受一个ATOM （atm）和LIST（lst），如果它是成员，则返回ATOM，否则返回0。 (MYMEMBER ‘D ‘(A B C D E F G) returns => D ex。 (MYMEMBER ‘H ‘(A B C D E F G) returns => NIL 这是我有： (defun m
    recursion common-lisp 2017-09-16
最新问题