diff options
author | dos-reis <gdr@axiomatics.org> | 2011-02-06 03:36:41 +0000 |
---|---|---|
committer | dos-reis <gdr@axiomatics.org> | 2011-02-06 03:36:41 +0000 |
commit | 9c5ffc67bc7783bf0a93335ef6703a10a602ff37 (patch) | |
tree | 95cab276671a8a4d802bc24e6c97241985055753 /src/interp/boot-pkg.lisp | |
parent | e007c1c9b02538f76a17eb630f5b6db8ef131c6d (diff) | |
download | open-axiom-9c5ffc67bc7783bf0a93335ef6703a10a602ff37.tar.gz |
* interp/g-opt.boot ($VMsideEffectFreeOperators): Include %fmanexp.
(sideEffectFree?): New.
(varIsAssigned): Tidy.
(canInlineVarDefinition): Likewise.
* interp/boot-pkg.lisp (gensym?): New.
* interp/c-util.boot ($NonExpandableOperators): New.
(expandableDefinition?): Use it.
* algebra/sf.spad.pamphlet (DoubleFloat): Use %fmanexp.
Diffstat (limited to 'src/interp/boot-pkg.lisp')
-rw-r--r-- | src/interp/boot-pkg.lisp | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/src/interp/boot-pkg.lisp b/src/interp/boot-pkg.lisp index bad04369..b7b1cd56 100644 --- a/src/interp/boot-pkg.lisp +++ b/src/interp/boot-pkg.lisp @@ -1,6 +1,6 @@ ;; Copyright (c) 1991-2002, The Numerical Algorithms Group Ltd. ;; All rights reserved. -;; Copyright (C) 2007-2009, Gabriel Dos Reis. +;; Copyright (C) 2007-2011, Gabriel Dos Reis. ;; All rights reserved. ;; ;; Redistribution and use in source and binary forms, with or without @@ -60,6 +60,9 @@ (defun define-function (f v) (setf (symbol-function f) v))) +(defun |gensym?| (s) + (null (symbol-package s))) + ;; Below are some missing functions. There here for lack of better ;; place (sys-funs.lisp?) ;; |