diff options
Diffstat (limited to 'src/interp/packtran.boot')
| -rw-r--r-- | src/interp/packtran.boot | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/src/interp/packtran.boot b/src/interp/packtran.boot index 53f2aa4c..260cac44 100644 --- a/src/interp/packtran.boot +++ b/src/interp/packtran.boot @@ -1,6 +1,6 @@ -- Copyright (c) 1991-2002, The Numerical ALgorithms Group Ltd. -- All rights reserved. --- Copyright (C) 2007-2008, Gabriel Dos Reis. +-- Copyright (C) 2007-2010, Gabriel Dos Reis. -- All rights reserved. -- -- Redistribution and use in source and binary forms, with or without @@ -42,10 +42,10 @@ rePackageTran(sex, package) == packageTran sex == -- destructively translate all the symbols in the given s-expression to the -- current package - SYMBOLP sex => + symbol? sex => EQ(_*PACKAGE_*, SYMBOL_-PACKAGE sex) => sex INTERN STRING sex - CONSP sex => + cons? sex => RPLACA(sex, packageTran first sex) RPLACD(sex, packageTran rest sex) sex |