Question

我正在使用LISP与emacs工作，我遇到了一个错误，我不知道如何解决。我会提出输出，我从中理解的内容以及我所缺少的内容。

错误：

junk in string "(-5 -4 -3 -2 -1 0 1 2 3 4 5 6)"
   [Condition of type SB-INT:SIMPLE-PARSE-ERROR]


Backtrace:

0: (PARSE-INTEGER "(-5 -4 -3 -2 -1 0 1 2 3 4 5 6)" :START 0 :END NIL :RADIX 10 :JUNK-ALLOWED NIL)    
1: ((:METHOD CLSQL-SYS:READ-SQL-VALUE :AROUND (T T T T)) "(-5 -4 -3 -2 -1 0 1 2 3 4 5 6)" INTEGER #<CLSQL-SQLITE3:SQLITE3-DATABASE C:/Users/sas31/idyom/db/database.sqlite OPEN {1007D61933}> :SQLITE3) [fa..     
2: ((:METHOD CLSQL-SYS::UPDATE-SLOT-FROM-DB-VALUE (CLSQL-SYS:STANDARD-DB-OBJECT T T)) #<unavailable argument> #<unavailable argument> #<unavailable argument>) [fast-method]     
3: (CLSQL-SYS::BUILD-OBJECTS (#<CLSQL-SYS:SELECT-LIST {100592E993}>) #<unavailable argument> #<CLSQL-SQLITE3:SQLITE3-DATABASE C:/Users/sas31/idyom/db/database.sqlite OPEN {1007D61933}> #<unavailable argu..    
4: (CLSQL-SYS::FIND-ALL (IDYOM-DB:MTP-EVENT) :RESULT-TYPES :AUTO :REFRESH NIL :INSTANCES NIL :WHERE #<CLSQL-SYS:SQL-RELATIONAL-EXP (MTP_EVENT.COMPOSITION_ID = 0 AND MTP_EVENT.DATASET_ID = 26)> :FLATP T :..    
5: (CLSQL-SYS::FIND-ALL (IDYOM-DB:MTP-EVENT) :RESULT-TYPES :AUTO :REFRESH NIL :INSTANCES NIL :WHERE #<CLSQL-SYS:SQL-RELATIONAL-EXP (MTP_EVENT.COMPOSITION_ID = 0 AND MTP_EVENT.DATASET_ID = 26)> :FLATP T :..    
6: (CLSQL-SYS:SELECT IDYOM-DB:MTP-EVENT :WHERE #<CLSQL-SYS:SQL-RELATIONAL-EXP (MTP_EVENT.COMPOSITION_ID = 0 AND MTP_EVENT.DATASET_ID = 26)> :FLATP T :RESULT-TYPES NIL :DATABASE #<CLSQL-SQLITE3:SQLITE3-DA..    
7: (CLSQL-SYS::FAULT-JOIN-SLOT #<CLSQL-SYS::STANDARD-DB-CLASS IDYOM-DB:MTP-COMPOSITION> #<IDYOM-DB:MTP-COMPOSITION {10047AAA73}> #<CLSQL-SYS::VIEW-CLASS-EFFECTIVE-SLOT-DEFINITION IDYOM-DB::EVENTS>)    
8: ((:METHOD SB-MOP:SLOT-VALUE-USING-CLASS (CLSQL-SYS::STANDARD-DB-CLASS T T)) #<unavailable argument> #<unavailable argument> #<unavailable argument>) [fast-method]    
9: (IDYOM-DB::GET-EVENT-SEQUENCE 26 0)    
10: (IDYOM-DB:COUNT-EVENTS 26 0)    
11: (MIDI2DB::FIX-BIOI-DUR-DELTAST 26)    
12: (SB-INT:SIMPLE-EVAL-IN-LEXENV (MIDI2DB::FIX-BIOI-DUR-DELTAST 26) #<NULL-LEXENV>)    
13: (EVAL (MIDI2DB::FIX-BIOI-DUR-DELTAST 26))

所以，我想在:junk-allowed nil中将t更改为parse-integer，但我不知道如何做到这一点，因为我不知道何时或为什么要调用它。函数get-event-sequence（为此特定程序编写）调用get-composition，其内容如下：

(defun get-composition (dataset-id composition-id)

 "Returns the composition whose dataset-id is <dataset-id> and whose
  composition-id is <composition-id>." 

 (car (clsql:select
        'mtp-composition
        :flatp t 
        :where [and [= [slot-value 'mtp-composition 'dataset-id] dataset-id]
                    [= [slot-value 'mtp-composition 'composition-id] composition-id]])))

我不知道从这个函数调用此解析整数的位置或者如何更改该关键字的值。此外，数字串是编码的密钥签名，代表了这个特定数据集中的所有关键签名，但是当这个函数似乎只处理dataset-id和composition-id时，为什么这很重要？谢谢你的帮助！

Answer 1

查看回溯，我们可以看到parse-integer被泛型函数clsql-sys:read-sql-value上的方法调用。

如果没有检查代码，那么:junk-allowed nil只是显示默认值的回溯，或者是否从该方法主动调用该方法，这一点尚不清楚。

然而，将该值设置为真值对您来说并不会有所帮助，因为返回值为nil（因为＆＃34;（＆＃34;不是数字或空格）这意味着您的数据库存在更深层次的问题，可能是由于隐式架构违规（您已经说过＆＃34;我想存储数字＆＃34;，然后存储了一个数字列表和ORM做了一件无法恢复的事情。）

* (parse-integer " 2 " :junk-allowed t)

2
2
*  (parse-integer "(2 " :junk-allowed t)

NIL
0

更改默认值：LISP中顶级函数的解析整数的junk-allowed值

1 个答案: