Changeset 12285
- Timestamp:
- 11/29/09 19:38:53 (11 years ago)
- Location:
- trunk/abcl/src/org/armedbear/lisp
- Files:
-
- 12 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/abcl/src/org/armedbear/lisp/AbstractString.java
r12255 r12285 50 50 return T; 51 51 return super.typep(type); 52 }53 54 @Override55 public final LispObject STRINGP()56 {57 return T;58 52 } 59 53 -
trunk/abcl/src/org/armedbear/lisp/AbstractVector.java
r12272 r12285 47 47 return T; 48 48 return super.typep(type); 49 }50 51 @Override52 public final LispObject VECTORP()53 {54 return T;55 49 } 56 50 -
trunk/abcl/src/org/armedbear/lisp/Bignum.java
r12254 r12285 160 160 161 161 @Override 162 public LispObject NUMBERP()163 {164 return T;165 }166 167 @Override168 162 public boolean numberp() 169 163 { 170 164 return true; 171 }172 173 @Override174 public LispObject INTEGERP()175 {176 return T;177 165 } 178 166 -
trunk/abcl/src/org/armedbear/lisp/Complex.java
r12254 r12285 103 103 return T; 104 104 return super.typep(type); 105 }106 107 @Override108 public LispObject NUMBERP()109 {110 return T;111 105 } 112 106 -
trunk/abcl/src/org/armedbear/lisp/Cons.java
r12279 r12285 113 113 114 114 @Override 115 public LispObject ATOM()116 {117 return NIL;118 }119 120 @Override121 115 public boolean atom() 122 116 { … … 415 409 416 410 @Override 417 public final LispObject LISTP()418 {419 return T;420 }421 422 @Override423 411 public final boolean endp() 424 412 { 425 413 return false; 426 }427 428 @Override429 public final LispObject ENDP()430 {431 return NIL;432 414 } 433 415 -
trunk/abcl/src/org/armedbear/lisp/DoubleFloat.java
r12254 r12285 107 107 108 108 @Override 109 public LispObject NUMBERP()110 {111 return T;112 }113 114 @Override115 109 public boolean numberp() 116 110 { … … 210 204 { 211 205 return value == 0; 212 }213 214 @Override215 public LispObject FLOATP()216 {217 return T;218 206 } 219 207 -
trunk/abcl/src/org/armedbear/lisp/Fixnum.java
r12254 r12285 157 157 158 158 @Override 159 public LispObject NUMBERP()160 {161 return T;162 }163 164 @Override165 159 public boolean numberp() 166 160 { 167 161 return true; 168 }169 170 @Override171 public LispObject INTEGERP()172 {173 return T;174 162 } 175 163 -
trunk/abcl/src/org/armedbear/lisp/LispCharacter.java
r12254 r12285 117 117 118 118 @Override 119 public LispObject CHARACTERP()120 {121 return T;122 }123 124 @Override125 119 public boolean characterp() 126 120 { -
trunk/abcl/src/org/armedbear/lisp/LispObject.java
r12281 r12285 87 87 } 88 88 89 public LispObject CONSTANTP()89 public final LispObject CONSTANTP() 90 90 { 91 91 return constantp() ? T : NIL; 92 92 } 93 93 94 public LispObject ATOM()95 { 96 return T;94 public final LispObject ATOM() 95 { 96 return atom() ? T : NIL; 97 97 } 98 98 … … 269 269 } 270 270 271 public LispObject EVENP()271 public final LispObject EVENP() 272 272 { 273 273 return evenp() ? T : NIL; … … 281 281 } 282 282 283 public LispObject ODDP()283 public final LispObject ODDP() 284 284 { 285 285 return oddp() ? T : NIL; … … 293 293 } 294 294 295 public LispObject PLUSP()295 public final LispObject PLUSP() 296 296 { 297 297 return plusp() ? T : NIL; … … 305 305 } 306 306 307 public LispObject MINUSP()307 public final LispObject MINUSP() 308 308 { 309 309 return minusp() ? T : NIL; … … 317 317 } 318 318 319 public LispObject NUMBERP() 319 public final LispObject NUMBERP() 320 { 321 return numberp() ? T : NIL; 322 } 323 324 public boolean numberp() 325 { 326 return false; 327 } 328 329 public final LispObject ZEROP() 330 { 331 return zerop() ? T : NIL; 332 } 333 334 public boolean zerop() 335 { 336 type_error(this, Symbol.NUMBER); 337 // Not reached. 338 return false; 339 } 340 341 public LispObject COMPLEXP() 320 342 { 321 343 return NIL; 322 344 } 323 345 324 public boolean numberp() 325 { 326 return false; 327 } 328 329 public LispObject ZEROP() 330 { 331 return zerop() ? T : NIL; 332 } 333 334 public boolean zerop() 335 { 336 type_error(this, Symbol.NUMBER); 337 // Not reached. 338 return false; 339 } 340 341 public LispObject COMPLEXP() 346 public final LispObject FLOATP() 347 { 348 return floatp() ? T : NIL; 349 } 350 351 public boolean floatp() 352 { 353 return false; 354 } 355 356 public final LispObject INTEGERP() 357 { 358 return integerp() ? T : NIL; 359 } 360 361 public boolean integerp() 362 { 363 return false; 364 } 365 366 public final LispObject RATIONALP() 367 { 368 return rationalp() ? T : NIL; 369 } 370 371 public boolean rationalp() 372 { 373 return false; 374 } 375 376 public final LispObject REALP() 377 { 378 return realp() ? T : NIL; 379 } 380 381 public boolean realp() 382 { 383 return false; 384 } 385 386 public final LispObject STRINGP() 387 { 388 return stringp() ? T : NIL; 389 } 390 391 public boolean stringp() 392 { 393 return false; 394 } 395 396 public LispObject SIMPLE_STRING_P() 342 397 { 343 398 return NIL; 344 399 } 345 400 346 public LispObject FLOATP() 347 { 348 return NIL; 349 } 350 351 public boolean floatp() 352 { 353 return false; 354 } 355 356 public LispObject INTEGERP() 357 { 358 return NIL; 359 } 360 361 public boolean integerp() 362 { 363 return false; 364 } 365 366 public LispObject RATIONALP() 367 { 368 return rationalp() ? T : NIL; 369 } 370 371 public boolean rationalp() 372 { 373 return false; 374 } 375 376 public LispObject REALP() 377 { 378 return realp() ? T : NIL; 379 } 380 381 public boolean realp() 382 { 383 return false; 384 } 385 386 public LispObject STRINGP() 387 { 388 return NIL; 389 } 390 391 public boolean stringp() 392 { 393 return false; 394 } 395 396 public LispObject SIMPLE_STRING_P() 397 { 398 return NIL; 399 } 400 401 public LispObject VECTORP() 402 { 403 return NIL; 401 public final LispObject VECTORP() 402 { 403 return vectorp() ? T : NIL; 404 404 } 405 405 … … 409 409 } 410 410 411 public LispObject CHARACTERP()412 { 413 return NIL;411 public final LispObject CHARACTERP() 412 { 413 return characterp() ? T : NIL; 414 414 } 415 415 … … 556 556 } 557 557 558 public LispObject LISTP()559 { 560 return NIL;558 public final LispObject LISTP() 559 { 560 return listp() ? T : NIL; 561 561 } 562 562 … … 568 568 } 569 569 570 public LispObject ENDP()571 { 572 return type_error(this, Symbol.LIST);570 public final LispObject ENDP() 571 { 572 return endp() ? T : NIL; 573 573 } 574 574 … … 881 881 } 882 882 883 public LispObject IS_E(LispObject obj)883 public final LispObject IS_E(LispObject obj) 884 884 { 885 885 return isEqualTo(obj) ? T : NIL; … … 898 898 } 899 899 900 public LispObject IS_NE(LispObject obj)900 public final LispObject IS_NE(LispObject obj) 901 901 { 902 902 return isNotEqualTo(obj) ? T : NIL; … … 915 915 } 916 916 917 public LispObject IS_LT(LispObject obj)917 public final LispObject IS_LT(LispObject obj) 918 918 { 919 919 return isLessThan(obj) ? T : NIL; … … 932 932 } 933 933 934 public LispObject IS_GT(LispObject obj)934 public final LispObject IS_GT(LispObject obj) 935 935 { 936 936 return isGreaterThan(obj) ? T : NIL; … … 949 949 } 950 950 951 public LispObject IS_LE(LispObject obj)951 public final LispObject IS_LE(LispObject obj) 952 952 { 953 953 return isLessThanOrEqualTo(obj) ? T : NIL; … … 966 966 } 967 967 968 public LispObject IS_GE(LispObject obj)968 public final LispObject IS_GE(LispObject obj) 969 969 { 970 970 return isGreaterThanOrEqualTo(obj) ? T : NIL; -
trunk/abcl/src/org/armedbear/lisp/Nil.java
r12279 r12285 201 201 202 202 @Override 203 public LispObject LISTP()204 {205 return T;206 }207 208 @Override209 203 public boolean endp() 210 204 { 211 205 return true; 212 }213 214 @Override215 public LispObject ENDP()216 {217 return T;218 206 } 219 207 -
trunk/abcl/src/org/armedbear/lisp/Ratio.java
r12254 r12285 95 95 return T; 96 96 return super.typep(type); 97 }98 99 @Override100 public LispObject NUMBERP()101 {102 return T;103 97 } 104 98 -
trunk/abcl/src/org/armedbear/lisp/SingleFloat.java
r12254 r12285 107 107 108 108 @Override 109 public LispObject NUMBERP()110 {111 return T;112 }113 114 @Override115 109 public boolean numberp() 116 110 { … … 210 204 { 211 205 return value == 0; 212 }213 214 @Override215 public LispObject FLOATP()216 {217 return T;218 206 } 219 207
Note: See TracChangeset
for help on using the changeset viewer.