[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[no subject]



In system 44.2, with microcode 692, on LISP Machine Ten:

The lisp machine compiler error's out on functions which have 
argument destructuring. e.g.

(DEFUN RATDERIVATIVE ((NUM . DENOM) VAR)
  (COND ((EQN 1 DENOM) (CONS (PDERIVATIVE NUM VAR) 1))
	(T (SETQ DENOM (PGCDCOFACTS DENOM (PDERIVATIVE DENOM VAR)))
	   (SETQ NUM (RATREDUCE (PDIFFERENCE (PTIMES (CADR DENOM)
						     (PDERIVATIVE NUM VAR))
					     (PTIMES NUM (CADDR DENOM)))
		 ;RATREDUCE ONLY NEEDS TO BE DONE WITH CONTENT OF GCD WRT VAR.
				(CAR DENOM)))
	   (COND ((PZEROP (CAR NUM)) NUM)
		 (T (RPLACD NUM (PTIMES (CDR NUM)
					(PEXPT (CADR DENOM) 2)))))))))
; pardon the example.

Macsyma implementors: argument destructuring is not supported on all systems,
and should probably not be used.

-GJC