Lisp：如何提示读取浮点数？

Question

我有一个函数，在其中我同时使用解析整数和提示读取。但是，我需要这些整数之一才能成为浮点数。当我将parse-integer更改为parse-float时，它不再起作用。这是函数：

(defun prompt-for-cat ()                                                       
  (add-record                                                                  
    (make-cat                                                                    
      (prompt-read "Name")                                                        
      (prompt-read "Coloring")                                                    
      (or (parse-integer (prompt-read "Weight") :junk-allowed t) 0)               
      (or (parse-integer (prompt-read "Experience") :junk-allowed t) 0)           
      (or (parse-integer (prompt-read "Length") :junk-allowed t) 0))))  

这按原样运行，但我需要第一个整数“ Weight”为浮点数。 parse-float无法正常工作，我找不到正确的方法来执行此操作。

Answer 1

（（（（重量（格式t“重量：”）（读t））））（如果（浮动重量）重量0））