Commit 04b5fef4 authored by Liam M. Healy's avatar Liam M. Healy
Browse files

Fix incorrect function call in -i t t method

parent d0c28dea
;; Generic functions for generalized numbers
;; Liam Healy Tue Feb 9 1999 - 21:38
;; Time-stamp: <2011-03-23 12:07:40EDT generic.lisp>
;; Time-stamp: <2011-03-26 17:09:50EDT generic.lisp>
;; Copyright 2011 Liam M. Healy
;; Distributed under the terms of the GNU General Public License
......@@ -99,7 +99,7 @@
(cl:- a b))
(:method (a b)
(funcall-dyadic
'+i a b (lambda (x) (or (null x) (zerop x))) (lambda (x) (* -1 x))))
'-i a b (lambda (x) (or (null x) (zerop x))) (lambda (x) (* -1 x))))
(:method ((a sequence) (b sequence))
(if (null b)
(*i -1 a)
......
;; Physical attributes that describe (or partially describe) a physical state.
;; Liam Healy Mon Apr 1 2002 - 16:27
;; Time-stamp: <2011-03-19 17:55:00EDT state.lisp>
;; Time-stamp: <2011-03-26 17:20:53EDT state.lisp>
;; Copyright 2011 Liam M. Healy
;; Distributed under the terms of the GNU General Public License
......@@ -25,7 +25,7 @@
make-physical-state make-new-physical-state
make-state-table set-state-value defined-attributes
copy-state map-state
*default-sfg* state-formula))
*default-sfg* *return-formula* state-formula))
;;;;****************************************************************************
;;;; Attributes
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment