| author | Camm Maguire <camm@debian.org> | 2015年02月05日 10:40:29 -0500 |
|---|---|---|
| committer | Camm Maguire <camm@debian.org> | 2015年02月05日 10:40:29 -0500 |
| commit | 41d80f22fbc3c0ad5d04093ef6cd00b3c2aa9593 (patch) | |
| tree | 9cd3c8e1b9e39da64ae9d4e6e272987b39946edd | |
| parent | ef2e6e30b951d44cc9b5d6c32962a5458195a0cf (diff) | |
| download | gcl-relocatable_cons.tar.gz | |
| -rw-r--r-- | gcl/pcl/impl/gcl/gcl_pcl_impl_low.lisp | 2 |
diff --git a/gcl/pcl/impl/gcl/gcl_pcl_impl_low.lisp b/gcl/pcl/impl/gcl/gcl_pcl_impl_low.lisp index 85c4d4269..b541be6b8 100644 --- a/gcl/pcl/impl/gcl/gcl_pcl_impl_low.lisp +++ b/gcl/pcl/impl/gcl/gcl_pcl_impl_low.lisp @@ -84,7 +84,7 @@ static object cclosure_env_nthcdr (fixnum n,object cc) { env=env->c.c_cdr;} return env;} else - {if(n>=fix(*(turbo-1)))return Cnil; + {if(n>=*(fixnum *)(turbo-1))return Cnil; return turbo[n];} }") |