aboutsummaryrefslogtreecommitdiff
path: root/src/interp/pspad1.boot
diff options
context:
space:
mode:
authordos-reis <gdr@axiomatics.org>2011-01-19 09:06:24 +0000
committerdos-reis <gdr@axiomatics.org>2011-01-19 09:06:24 +0000
commitc8e50c69725188f4a48d1e215d00d917dfc7c3d1 (patch)
tree002236f8f6832b41c12a6733f4099c00c59a40cc /src/interp/pspad1.boot
parentdd38e4a9c05df5de7c133cbb8d60fd10c7b56f5c (diff)
downloadopen-axiom-c8e50c69725188f4a48d1e215d00d917dfc7c3d1.tar.gz
* interp/vmlisp.lisp (FIXP): Remove.
* interp/alql.boot: Use integer? instead of FIXP. * interp/br-con.boot: Likewise. * interp/br-op1.boot: Likewise. * interp/c-util.boot: Likewise. * interp/fnewmeta.lisp: Likewise. * interp/ht-root.boot: Likewise. * interp/i-analy.boot: Likewise. * interp/i-syscmd.boot: Likewise. * interp/i-toplev.boot: Likewise. * interp/interop.boot: Likewise. * interp/lisplib.boot: Likewise. * interp/mark.boot: Likewise. * interp/newfort.boot: Likewise. * interp/nrunfast.boot: Likewise. * interp/pspad1.boot: Likewise. * interp/setvars.boot: Likewise. * interp/showimp.boot: Likewise. * interp/slam.boot: Likewise. * interp/topics.boot: Likewise. * interp/trace.boot: Likewise. * interp/wi1.boot: Likewise. * interp/wi2.boot: Likewise. * interp/word.boot: Likewise.
Diffstat (limited to 'src/interp/pspad1.boot')
-rw-r--r--src/interp/pspad1.boot4
1 files changed, 2 insertions, 2 deletions
diff --git a/src/interp/pspad1.boot b/src/interp/pspad1.boot
index 10461cc9..9d6c301b 100644
--- a/src/interp/pspad1.boot
+++ b/src/interp/pspad1.boot
@@ -1,6 +1,6 @@
-- Copyright (c) 1991-2002, The Numerical Algorithms Group Ltd.
-- All rights reserved.
--- Copyright (C) 2007-2010, Gabriel Dos Reis.
+-- Copyright (C) 2007-2011, Gabriel Dos Reis.
-- All rights reserved.
--
-- Redistribution and use in source and binary forms, with or without
@@ -278,7 +278,7 @@ format(x,:options) ==
formatForm x
formatAtom x
null newCOrNil => ($c:= oldC; nil)
- null FIXP newCOrNil => error()
+ not integer? newCOrNil => error()
$c:= newCOrNil