Add more system builtin declarations

Author: Affonso-Gui

lisp/comp/builtins.l

@@ -119,6 +119,7 @@
 (def-builtin-entry 'LISP:GET-DISPATCH-MACRO-CHARACTER "GETDISPMACRO")
 (def-builtin-entry 'LISP:FORMAT "XFORMAT")
 (def-builtin-entry 'system::SAVE "SAVE") 
+(def-builtin-entry 'system::SRCLOAD "SRCLOAD")
 (def-builtin-entry 'system::BINLOAD "BINLOAD")
 (def-builtin-entry 'LISP:V+ "VPLUS")
 (def-builtin-entry 'LISP:V- "VMINUS")
@@ -397,6 +398,9 @@
 ;(def-builtin-entry 'SYS::MALLOC_DEBUG "MALLOC_DEBUG")
 ;(def-builtin-entry 'SYS::MALLOC_VERIFY "MALLOC_VERIFY")
 (def-builtin-entry 'SYS:LIST-ALL-REFERENCES "LISTALLREFERENCES")
+(def-builtin-entry 'SYS:LIST-CALLSTACK "LISTCALLSTACK")
+(def-builtin-entry 'SYS:LIST-ALL-BLOCKS "LISTALLBLOCKS")
+(def-builtin-entry 'SYS:LIST-ALL-TAGS "LISTALLTAGS")
 (def-builtin-entry 'SYS:LIST-ALL-CATCHERS "LISTALLCATCHERS")
 (def-builtin-entry 'SYS:LIST-ALL-BINDINGS "LISTBINDINGS")
 (def-builtin-entry 'SYS:LIST-ALL-FUNCTION-BINDINGS "LISTFUNCTIONBINDINGS")