diff options
author | Gabriel Dos Reis <GabrielDosReis@users.noreply.github.com> | 2022-08-20 23:10:21 -0700 |
---|---|---|
committer | GitHub <noreply@github.com> | 2022-08-20 23:10:21 -0700 |
commit | 3dc479ae544db8bc9224f183f33cb3e16fe2daac (patch) | |
tree | 3133a5b3f3b33096860c585dc2b557107c22a982 /src/interp/i-output.boot | |
parent | f9a884706ac7e0f92db5e6cb16811d543a98ac28 (diff) | |
download | open-axiom-3dc479ae544db8bc9224f183f33cb3e16fe2daac.tar.gz |
fix sbcl 1.5.9 build (#16)
* Fix build with SBCL-1.5.9
* Fix dynamic loading of open-axiom-core.so
Diffstat (limited to 'src/interp/i-output.boot')
-rw-r--r-- | src/interp/i-output.boot | 20 |
1 files changed, 9 insertions, 11 deletions
diff --git a/src/interp/i-output.boot b/src/interp/i-output.boot index d035bd0b..a4c44912 100644 --- a/src/interp/i-output.boot +++ b/src/interp/i-output.boot @@ -1,6 +1,6 @@ -- Copyright (c) 1991-2002, The Numerical ALgorithms Group Ltd. -- All rights reserved. --- Copyright (C) 2007-2016, Gabriel Dos Reis. +-- Copyright (C) 2007-2022, Gabriel Dos Reis. -- All rights reserved. -- -- Redistribution and use in source and binary forms, with or without @@ -1111,21 +1111,19 @@ aggregateApp(u,x,y,d,s) == --% Function to compute Width +widthOfString u == + u = $EmptyString => 0 + stringChar(u,0) = char "%" and + (stringChar(u,1) = char "b" or stringChar(u,1) = char "d") => 1 + #u + outformWidth u == --WIDTH as called from OUTFORM to do a COPY - string? u => - u = $EmptyString => 0 - stringChar(u,0) = char "%" and - (stringChar(u,1) = char "b" or stringChar(u,1) = char "d") => 1 - #u + string? u => widthOfString u u isnt [.,:.] => # atom2String u WIDTH copyTree u WIDTH u == - string? u => - u = $EmptyString => 0 - stringChar(u,0) = char "%" and - (stringChar(u,1) = char "b" or stringChar(u,1) = char "d") => 1 - #u + string? u => widthOfString u integer? u => if (u < 1) then negative := 1 |