《实用Common Lisp》第三章save-db函数权限错误求助

先修正函数的语法错误 #

你的save-db函数存在一处语法问题：with-standard-io-syntax是宏，需要将执行代码包裹在它的括号范围内，当前写法会导致print语句脱离宏的作用域，修正后的代码如下：

(defun save-db (filename)
  (with-open-file (out filename
                   :direction :output
                   :if-exists :supersede)
    (with-standard-io-syntax
      (print *db* out))))

解决权限拒绝的核心问题 #

出现Permission denied错误，核心原因是Windows系统下C盘根目录需要管理员权限才能写入，普通用户进程无直接操作权限。推荐两种解决方式：

• 更换写入路径：选择一个你拥有读写权限的目录，比如用户文件夹或桌面。示例：

  ; 写入当前用户的文档目录
  (save-db "c:/users/你的用户名/documents/my-cds.db")
  ; 写入桌面
  (save-db "c:/users/你的用户名/desktop/my-cds.db")
  

  记得将你的用户名替换为你实际的Windows账户名。

• 强制写入C盘根目录（不推荐）：右键点击CCL启动程序，选择「以管理员身份运行」，再执行保存命令。这种方式存在系统目录写入风险，仅作临时测试用。

额外排查方向 #

• 检查目标文件是否被其他程序占用（如记事本、代码编辑器），关闭后再尝试保存。
• 确认杀毒软件或防火墙未拦截CCL的文件写入操作，可临时关闭防护功能测试。

内容的提问来源于stack exchange，提问作者DNess007