← Back to branch summary

~ubuntu-branches/ubuntu/intrepid/ecl/intrepid

« back to all changes in this revision

Viewing changes to src/c/symbols_list.h

  • Committer: Bazaar Package Importer
  • Author(s): Albin Tonnerre
  • Date: 2008-06-20 18:00:19 UTC
  • mfrom: (1.1.4 upstream)
  • Revision ID: james.westby@ubuntu.com-20080620180019-7fbz1ln5444vtkkr
Tags: 0.9j-20080306-2ubuntu1
* Enabled unicode support. (Closes: LP #123530)
* Modify Maintainer value to match the DebianMaintainerField specification.

Show diffs side-by-side

added added

removed removed

Lines of Context:
src/c/symbols_list.h
 
1
/* -*- mode: c; c-basic-offset: 8 -*- */
1
2
#ifdef ECL_CMU_FORMAT
2
3
# define ECL_NAME_PPRINT(x) ECL_NAME(x)
3
4
#else
446
447
{"GET-OUTPUT-STREAM-STRING", CL_ORDINARY, cl_get_output_stream_string, 1, OBJNULL},
447
448
{"GET-PROPERTIES", CL_ORDINARY, cl_get_properties, 2, OBJNULL},
448
449
{"GET-SETF-EXPANSION", CL_ORDINARY, NULL, -1, OBJNULL},
449
 
{"GET-UNIVERSAL-TIME", CL_ORDINARY, ECL_NAME(cl_get_universal_time), -1, OBJNULL},
 
450
{"GET-UNIVERSAL-TIME", CL_ORDINARY, cl_get_universal_time, 0, OBJNULL},
450
451
{"GETF", CL_ORDINARY, cl_getf, -1, OBJNULL},
451
452
{"GETHASH", CL_ORDINARY, cl_gethash, -1, OBJNULL},
452
453
{"GO", CL_FORM, NULL, -1, OBJNULL},
750
751
{"REMOVE-IF", CL_ORDINARY, ECL_NAME(cl_remove_if), -1, OBJNULL},
751
752
{"REMOVE-IF-NOT", CL_ORDINARY, ECL_NAME(cl_remove_if_not), -1, OBJNULL},
752
753
{"REMPROP", CL_ORDINARY, cl_remprop, 2, OBJNULL},
753
 
{"RENAME-FILE", CL_ORDINARY, cl_rename_file, 2, OBJNULL},
 
754
{"RENAME-FILE", CL_ORDINARY, cl_rename_file, -1, OBJNULL},
754
755
{"RENAME-PACKAGE", CL_ORDINARY, cl_rename_package, -1, OBJNULL},
755
756
{"REPLACE", CL_ORDINARY, ECL_NAME(cl_replace), -1, OBJNULL},
756
757
{"REQUIRE", CL_ORDINARY, ECL_NAME(cl_require), -1, OBJNULL},
1497
1498
#ifdef ECL_THREADS
1498
1499
{MP_ "PROCESS", MP_ORDINARY, NULL, -1, OBJNULL},
1499
1500
{MP_ "LOCK", MP_ORDINARY, NULL, -1, OBJNULL},
 
1501
{MP_ "CONDITION-VARIABLE", MP_ORDINARY, NULL, -1, OBJNULL},
1500
1502
{MP_ "*CURRENT-PROCESS*", MP_SPECIAL, NULL, -1, OBJNULL},
1501
1503
{MP_ "ALL-PROCESSES", MP_ORDINARY, mp_all_processes, 0, OBJNULL},
1502
1504
{MP_ "EXIT-PROCESS", MP_ORDINARY, mp_exit_process, 0, OBJNULL},
1503
1505
{MP_ "MAKE-PROCESS", MP_ORDINARY, mp_make_process, -1, OBJNULL},
1504
1506
{MP_ "PROCESS-ACTIVE-P", MP_ORDINARY, mp_process_active_p, 1, OBJNULL},
1505
1507
{MP_ "PROCESS-ENABLE", MP_ORDINARY, mp_process_enable, 1, OBJNULL},
 
1508
{MP_ "PROCESS-YIELD", MP_ORDINARY, mp_process_yield, 0, OBJNULL},
1506
1509
{MP_ "PROCESS-KILL", MP_ORDINARY, mp_process_kill, 1, OBJNULL},
1507
1510
{MP_ "PROCESS-NAME", MP_ORDINARY, mp_process_name, 1, OBJNULL},
1508
1511
{MP_ "PROCESS-PRESET", MP_ORDINARY, mp_process_preset, -1, OBJNULL},
1509
1512
{MP_ "PROCESS-RUN-FUNCTION", MP_ORDINARY, mp_process_run_function, -1, OBJNULL},
1510
1513
{MP_ "PROCESS-WHOSTATE", MP_ORDINARY, mp_process_whostate, 1, OBJNULL},
1511
1514
{MP_ "MAKE-LOCK", MP_ORDINARY, mp_make_lock, -1, OBJNULL},
 
1515
{KEY_ "RECURSIVE", KEYWORD, NULL, -1, OBJNULL},
 
1516
{MP_ "RECURSIVE-LOCK-P", MP_ORDINARY, mp_recursive_lock_p, 1, OBJNULL},
 
1517
{MP_ "LOCK-NAME", MP_ORDINARY, mp_lock_name, 1, OBJNULL},
 
1518
{MP_ "LOCK-HOLDER", MP_ORDINARY, mp_lock_holder, 1, OBJNULL},
1512
1519
{MP_ "GET-LOCK", MP_ORDINARY, mp_get_lock, -1, OBJNULL},
1513
1520
{MP_ "GIVEUP-LOCK", MP_ORDINARY, mp_giveup_lock, 1, OBJNULL},
 
1521
{MP_ "MAKE-CONDITION-VARIABLE", MP_ORDINARY, mp_make_condition_variable, 0, OBJNULL},
 
1522
{MP_ "CONDITION-VARIABLE-WAIT", MP_ORDINARY, mp_condition_variable_wait, 2, OBJNULL},
 
1523
{MP_ "CONDITION-VARIABLE-TIMEDWAIT", MP_ORDINARY, mp_condition_variable_timedwait, 3, OBJNULL},
 
1524
{MP_ "CONDITION-VARIABLE-SIGNAL", MP_ORDINARY, mp_condition_variable_signal, 1, OBJNULL},
 
1525
{MP_ "CONDITION-VARIABLE-BROADCAST", MP_ORDINARY, mp_condition_variable_broadcast, 1, OBJNULL},
1514
1526
{KEY_ "INITIAL-BINDINGS", KEYWORD, NULL, -1, OBJNULL},
1515
1527
{MP_ "INTERRUPT-PROCESS", MP_ORDINARY, mp_interrupt_process, 2, OBJNULL},
1516
1528
{MP_ "+LOAD-COMPILE-LOCK+", MP_CONSTANT, NULL, -1, OBJNULL},
1517
1529
{MP_ "WITH-LOCK", MP_CONSTANT, NULL, -1, OBJNULL},
1518
1530
{MP_ "WITHOUT-INTERRUPTS", MP_CONSTANT, NULL, -1, OBJNULL},
 
1531
{MP_ "CHECK-PENDING-INTERRUPTS", SI_ORDINARY, si_check_pending_interrupts, 0, OBJNULL},
1519
1532
#endif
1520
1533
 
1521
1534
{SYS_ "WHILE", SI_ORDINARY, NULL, -1, OBJNULL},
1657
1670
 
1658
1671
{SYS_ "GC-STATS", SI_ORDINARY, si_gc_stats, 1, OBJNULL},
1659
1672
 
 
1673
{SYS_ "*CURRENT-FORM*", SI_SPECIAL, NULL, -1, OBJNULL},
 
1674
 
 
1675
{SYS_ "CODE-BLOCK", SI_ORDINARY, NULL, -1, OBJNULL},
 
1676
 
 
1677
#ifdef CLOS
 
1678
{SYS_ "CLEAR-GFUN-HASH", SI_ORDINARY, si_clear_gfun_hash, 1, OBJNULL},
 
1679
#endif
 
1680
 
 
1681
{SYS_ "FRAME", SI_ORDINARY, NULL, -1, OBJNULL},
 
1682
{SYS_ "APPLY-FROM-STACK-FRAME", SI_ORDINARY, si_apply_from_stack_frame, 2, OBJNULL},
 
1683
 
1660
1684
/* Tag for end of list */
1661
1685
{NULL, CL_ORDINARY, NULL, -1, OBJNULL}};
1662
1686